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1.0 OVERALL DESCRIPTION 


1.1 Usage 

FORTRAN IV Is a well known algebraic language (ori- 
ginally designed by BACKUS* et al) In common use on 
most currently available computers. It Is described 
In the American National Standards Institute FORTRAN 
IV Language Specification. 

PDP-11 FORTRAN is a variant of ANSI Standard FORTRAN 
IV as will be described In this and associated docu- 
ments. 

The FORTRAN Compiler Is used In conjunction with the 
remainder of the PDP-11 FORTRAN System under the 
Disk Monitor to allow users to write and run pro- 
grams on the PDP-11, 


1.2 Market 

Potential users of FORTRAN are assumed to know FOR- 
TRAN and to be able to use the PDP-11 Disk Monitor, 
FORTRAN allows the user to take advantage of the 
Disk Monitor and the associated library without re- 
quiring knowledge of assembly language techniques. 
PDP-11 FORTRAN Is designed to be saleable In the 
same market as the IBM 1130, 


1.3 Design Philosophy 

PDP-11 FORTRAN runs under the PDP-11 Disk Monitor* 
and will therefore reaulre a system with at least 8K 
of core, 

PDP-11 FORTRAN Is ANSI FORTRAN IV compatible with 
added features to allow most IBM 1130 FORTRAN pro- 
grams to ryn without change. 

The compiler Is designed to be as helpful to the 
user as possible In terms of diagnostic capabilities 
and operating charact er 1 at 1 es , 

1.4 References 

A. ANSI FORTRAN IV Language Spec., X3.9, 1966, 

B. FORTRAN Object Time System spec,* 130-311-002, 
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C* PDP-11 FORTRAN Programming Manual, 
D, Getting on the Air with FORTRAN, 
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2.0 hardware environment 


2.1 Minimum Requirements 

PDP-11 FORTRAN runs under the Disk Monitor, which 
requires a minimum of 8K of core, RF-11, RC-ll, or 
RK-ll Disk, High Speed Reader/Punch or Deetape, and 
an ASR-33 TELETYPE. FORTRAN will run in onlv those 
conf Isurations supported by DOS. 


2.2 Options 

FORTRAN supports all standard product line options 
which are supported by the Disk Moni tor (DOS) , 


2.3 Future Cons 1 derat i ons 

The system must be highly modular to allow exten- 
sions 1m hardware configuration to be made with min- 
imal effort. 

At no future time will FORTRAN be supported in a oa- 
per tape only environment. 
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3.0 SOFTWARE ENVIRONMENT 


3.1 Minimum Retirements 

FORTRAN will reouire the PDP-11 Disk Monitor, Under 
no circumstances will it run in the Paoer Taoe Sys- 
tem. 

The compiler will output code suitable for assembly 
bv the Relocatable Assembler, 


3,1.2 Object Time System Requirements 


3.1, 2.1, Arithmetic Routines 

Each of the following is called using the POLISH 
call(section 4,8) which assumes that uPon entry to a 
routine# register R4 points to a location containing 
the aadress of the next routine to be executed. 
Thus, R4 must be preserved by the routine and the 
exit from each routine is via a "JMP a(R4)-t" which 
Jumps to the next routine as well as advancing the 
R4 pointer. This way, the compiler need only gener- 
ate a list of addresses for most arithmetic expres- 
sions which is only slightly (aporox imatel y 2-3%) 
slower than in-line JSR calls. The resulting code 
is usually between 5 and 15% shorter than the equi- 
valent in-line f orm . 

The value of each operand will be on the steek uoon 
entry to a routine. A routine returns with the va- 
lue of the result on top of the stack (the original 
operands must be removed from the stack). 

The mode of the operands and the mode of the result 
will be defined implicitly bv entry into the rou- 
t i ne. 

The compiler will distinguish modes by suffixing one 
character to the subroutine name. 

On entry* 


(SP) LAST (SECOND) operand 
(SP+N) FIRST OPERAND 
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where N is the length in bytes of each operand, 

Uoon return* 

CSP) result. 

The suffix will have the following significance* 

SUFFIX OPERANDS RESULT 

B BYTE BYTF 

I INTEGER INTEGER 

L LOGICAL LOGICAL 

R REAL REAL 

D DOUBLE DOUBLE 

C COMPLEX complex 

The Arithmetic Routines are* 

NAME FUNCTION 

SAD ADD FIRST OPERAND TO SECOND 

OPERAND 

SSB SUBTRACT THE SECOND OPERAND 

FROM THE FIRST OPERAND 
SML MULTIPLY THE FIRST OPERAND 

BY THE SECOND OPERAND 
SDV DIVIDE THE FIRST OPERAND 

BY THE SECOND OPERAND 
SPW RAISE THE first operand 

TO THE POWER SPECIFIED BY THE 
SECOND OPERAND, 

NOTE i SPW has a two character suffix, the first 
describes the t voe of the base, the second describes 
the exponent type. Byte mode exponentiation is 
i 1 1 egal . 



3, 1.2,2, IF Functions 

A, Arithmetic IF tests will be performed by a set 
of routines whose entry point names begin with STS 
with suffixes as described in section 3, 1,2,1, The 
return will be to one of three locations pointed to 
bv the locations at (R4), (R4+2), and (R4+4) for ne- 
gative, zero, and positive, resoect i vel y . 

On entry* CSP) contains the operand to be tested. 
After return: the steek is clear, 

B. Logical IF tests ere oer formed bv the routine 
STRTST, Uoon entry, (SP) contains the operand to be 




PDP-11 FORTRAN, 13(3-309-001-06 
Software Environment 


PAGE 9 



tested. Upon return the stack Is clear. If the va- 
lue on top of the staek Is zero (false) control Is 
transferred to the address specified at (R4)f other- 
wise control will continue at the word following 
(R4) , 


3,1. 2,3, Data Conversion Routines, 

The eDerand on the stack Is converted to the desti- 
nation mode and replaces the souree operand on the 
too of the stack. 


routine 

operand 

resulting 

SB I 

BYTE 

INTEGER 

sbl 

BYTE 

logical 

S8R 

BYTE 

REAL 

SBD 

BYTE 

DOUBLE 

SBC 

BYTE 

COMPLEX 

SIB 

INTEGER 

BYTE 

SIL 

default conversion 

SIR 

integer 

REAL 

SID 

integer 

DOUBLE 

SIC 

integer 

COMPLEX 

SLB 

LOGICAL 

RYTE 

SLI 

DEFAULT CONVERSION 

SLR 

LOGICAL 

REAL 

SLD 

LOGICAL 

DOUBLE 

SLC 

LOGICAL 

COMPLEX 

SRB 

REAL 

BYTE 

SRI 

REAL 

INTEGER 

SRL 

REAL 

logical 

$RD 

REAL 

DOUBLE 

SRC 

REAL 

COMPLEX 

SDB 

DOUBLE 

BYTE 

SDZ 

DOUBLE 

INTEGER 

SDL 

DOUBLE 

logical 

SDR 

DOUBLE 

REAL 

SDC 

DOUBLE 

complex 

sea 

COMPLEX 

BYTE 

SCI 

COMPLEV 

INTEGER 

SCL 

complex 

LOGICAL 

SCR 

COMPLEX 

REAL 

SCO 

complex 

DOUBLE 





PAGE 10 


PDP-11 FORTRAN, 130-309-001-06 
Software Environment 


3. 1.2.4, I/O Routines 

Each I/O ©Deration invol ves van ini t ial i zet ion call? 
then one or more calls to transmit one or more list 
variables oer call, then a call to terminate the I/O 
ooerat i on. 


Ini t i al i ze: 


( SP+2) 


(SP) 


SINFI.FORH, READ 
$0UTFI,F0RM. WRITE 


ADDRESS OP ADDRESS OF 1ST 

DFVICE NUMBER CHAR. OF FORM. 


SIM, UNIFORM, REAL) ADQRFSS OF 

SOUTI, UNFORM, WRITE DEVICE NUMBER 


SINRI , DISK READ 
$outri,disk WRITE 


ADDRESS OF 
DFVTCF N y M B F R 


ADDRESS OF LOG, 
RFCORD NUMBER 


The ENCODE and DECODE i n i t i a 1 i zat i on calls are simi- 
liar to the above toms except that the names called 
are SENCD and SDECD respectively and there are three 
items on the stack. The toe (S°) contains the arrav 
address soecified, the second (SPt2) contains the 
format address, and the last (SP+d) contains the 
character count. 

Each initialization call has two in-line Parameters 
cor respondi ng to the "END*" and "ERR*" conditions. 
If either of these parameters are zero, the condi- 
tion is not specified. If non-zero, they are the 
address of the statement to be transferred to for 
either end-of-file or error conditions respectively. 
This transfer must be a POLISH mode transfer. 

Transmit list variables* 

SICA - TRANSMIT ARRAYS 

SIOB - TRANSMIT BYTE length item 

$101 - transmit singlf WORD INTEGER or logical 

SIOJ - TRANSMIT two WORD INTEGER 

SIOR - TRANSMIT REAL 

siod - transmit double 
sice - TRANSMIT complfx 

One or more parameters may be transmitted, (SP) con- 
tains the number of parameters, (SP*2) - (SPtN) con- 
tain the addresses of each data item. Note that all 
consecutive items of the same tvoe will be trans- 
ferred together. 
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For array I/O, all consecutive arrays will have 
their A 08 addresses Pushed on the stack followed by 
the number of arrays, A call to SI0A will then be 
made to cause the array transfer. The OTS may de- 
termine the data tyoe of the array by examining the 
ADBCsee section 3, 1,2. 6), 

Terminate? 

SIQF, TERMINATE I/O LIST 

(See section 7,4 for a complete POLISH example,) 


3.1. 2.5. Prlntlno of Formatted Records, 

The OTS will maintain a Flle/Devlce table (which 
should oe modifiable bv the user) which, along with 
other functions, Indicates for each loqlcal file 
whether the first character In a formatted record 
should be transmitted literally or should be Inter- 
preted for print control Purposes. 

when the table so Indicates, the vertical spacing 
character should be Interpreted and therefore eon- 
verted Into an output strlna as follows: 


Vert , 

spacing char. 

mean 1 no 

subst 1 tuted 

BLANk 


SPACE ONE LINE 

<CR, LE> 

0 


SPACE TWO LINES 

<cr,le,lf> 

1 


SPACE TO FIRST 
LTNF OF NEXT 

PAGE 

<CP,FF> 

♦ 


NO ADVANCE 

<C»> 

S 


NO ADVANCE 

<C»> 

The $ 

carriage control 

acts like a blank 

for the be- 


ginning of line control, but It has the additional 
c ha r ac t e r 1 s t 1 c of forcing a <Vj> for the end of line 
character Instead of a <C R >> thus leaving the car- 
rlaoe at the end of line rather than at the left 
maraln. This Is useful when It Is desired to make 
teleprinter responses on the same line as the query. 

The monitor provides device independence as reqards 
the Line Printer and the TELETYPE* therefore the 
same substituted output string applies to either 
dev Ice, 
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3. 1,2,6, Subscrlot Computation, 

There will be three subscrlot computation routines* 
one for each of 1, 2, and 3 dimensions! arrays. The 
call to a subscrlot routine will have as a slnqle 
In-line oarameter an Array Descriptor Block (gener- 
ated by the compiler, and for adjustable arrays# In- 
itialized by the object code Itself), as well as to 
the current Index values on the stack. The sub- 
script routine will return with the address of the 
desired array Item in R0, 

The Array Descriptor Block (ADB) format is as fol- 
1ows(see figure 1): 

WORD 2} ADDRESS OF THF FIRST ELEMENT OF THE ARRAY, 
CADDR) 

WORD It BITS 15-14: NUMBER OF DIMENSION'S 
BITS 13-11: DATA TY P E 
BITS 7-(?: DATA ELEMENT SIZE IN BYTES 

WORD 2: NUMBER OF INDFX ITEMS FOR THE FIRST 
DIMENSION(ABBR. :A) 

WORD 3: NUMBER OF INDEX items FOR THE SECOND 
DIMENSION 

(AfaBR.: B) (PRESENT FOR 2 AND 3 D I M F N S , ARRAYS) 

WORD 4 } NUMBER OF INDFX ITE M S FOR THE THIRD 
DIMENSION 

(AbPR.:C) (PRESENT FOR 3 DI M ENSTQMAL ARRAYS) 

The subscript routines may, with the Information 
supplied, if desired check for references exceeding 
the boundaries of the array. This is Currently ef- 
fected by specifying the /CK switch at compile time 
which forces calls to special bounds checking rou* 
tines to be generated instead of the standard rou- 
1 1 nes ( t hese routines are orefixed SSBX instead of 
SSBS ) • 
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ROUTINE 

NAME 

SSBS3 

SSBS2 

SSBS1 



SSBX3 

SSBX2 

*SBXl 

(SP) ON 

ENTRY 

VAL OF 3RD 

VAL OF 2ND 

VAL OF 1ST 



INDEX (K) 

INDEX ( J) 

INDEX ( I ) 


CSP+2) ON ENTRY VAL OF 2ND 

INDEXCJ) 


VAL OF 1ST 
INDEX ( I ) 


(SP+4) ON ENTRY VAL OF 1ST 

INDEX ( I ) 


R8 AFTER RET ADDR+((I-1)+ AdDR+((I- 1)+ ADDR+U-l) 

CONTAINS THE A*((J-1)+B* A* ( J. 1 ) ) *S IZE *SIZE 
ADDRESS* (K-1)))*SIZE 




3.2 Options 

Additional discussion occurs in section 8,0, 

3.2.1 Switch Options 

A. /ON 

The compile option to select one or two word in- 
tegers is /ON, When selected on the input specifi- 
cation, it sets the compile mode to use only 
one-word integers instead of the normal two. Note 
that two word integers as described here do not im- 
ply two words of precision, 

B. /SU 

There is also a compile option to suporess the se- 
auenelna generated for trace-back, when the switch 
/SU is specified on the input file name, the se- 
quencing is suppressed from the source listing and 
the object code. This causes a saving of two words 
per statement, but eliminates the comprehensive 
traeebaek normally available, 

C. /CK 

The /CK switch may be specified to foree the com- 
piler to generate special calls for all subscript 
references to force run time array boundary check- 
ing, This is especially useful when benchmarks are 
to be run or early debuagino is to be performed. 
When the /CK switch is specified, the compiler gen- 
erates calls to $SBX subscript routines Instead of 
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the $SBS rout 1 nes . 

0. /ER 

The /ER switch Is an optional switch, thgt when 
specified, flags "S" class errors. ”S M errors are 
those errors which are not considered errors In nor- 
mal usage, but may under certain conditions be con- 
sidered to be errors. For instance, if the first 
statement of a program were "XsA M , an error would be 
Issued telling the user that A has not been previ- 
ously defined. 

E. /CO 

The normal PD P -11 FORTRAN continuation line default 
Is 5, If It is desired to allow other han 5 contin- 
uations in a particular compile, it Is necessary to 
specify the /COtnn switch where nn Is a number of 
lines between 0 and 99 which is to be allowed. Thus 
if one desires to specify 19 continuation lines, a 
/CO 1 1 9 should be tyoed, Note that the reason for 
specifying only a five line default is to conserve 
core and that the space reauired in the continuation 
buffer is nn times 72 bytes where nn is the number 
of continuations required. Also note that if you 
run out of space during a compile, but do not need 
any cont i nuat 1 ons, that a /CO * 2 will reduce the am- 
ount of core used by 360 bytes, 

F. /GO 

If It is desired to immediately execute the results 
of a compile, it Is only necessary to specify the 
/GO switch. When this switch is specified, the com- 
piler when the current compile is done will automat- 
ically Invoke the linker to link the program, which 
will in turn cause the Program to be automatically 
executed. 

Note that the switches above, once set, stay set for 
all successive compiles. To clear either or both of 
the switches it is necessary to reload or restart 
the eomoi 1 er, 

G. /LI 

In the 12K compiler, listing control is achieved 
with the /ll switch. This switch may have a value 
from 0 to 3. /L I ! 2 specifies the minimal listing, 
which consists only of error diagnostics and the 
block descriptor (section 4,11), No listing format- 
ting is done, /Llsl is the default value. It spec* 
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1f1*s normal listing formatting, source listing, and 
the block descriptor to be listed, /LTI2 specifies 
the above In addition to an assembly listing, /LIj 3 
adds the assembler symbol table listing to the 
above» thus glvlnq all possible listing output. The 
/LI option must be specified every time It Is need- 
ed, or else the listing will revert to the default 
value, 

H. /AS 

The 12 k compiler has one additional switch which al- 
lows the assembler pass to be bypassed to allow the 
user to get the assembler outbut Instead of the ob- 
ject out out , When the switch /AS Is specified, he 
object file specification defines the assembler out- 
put file and the assembler pass Is avoided. The de- 
fault extension for the file Is also changed from 
,0BJ to ,PAL , Note that since the 8K compiler does 
not have the assembler Interface, It works as If the 
/AS switch Is always specified. 

An example of an compiler command specification hav- 
ing all of the above switches specified might bei 

0UTPUT/AS#IIST/U:1<INPUT/0N/SU/ER/CK/C0I19/G0 

One minor point to be stressed Is that If the /AS 
switch Is specified, the /LI switch has no meaning 
for any values greater than one, 

3.2,2 Compiler Options 

The compiler for 12K and langer has several capabil- 
ities not Included In the 8K compiler. First, the 
12 k version will be capable of direct binary genera- 
tion without requiring a separate assembly process. 
Second, It will be capable of compiling multiple 
routines In a single input file. It will also have 
neater page and listing control, 

3,3 Future Considerations 

The compiler has been designed to be easily modifi- 
able and/or extensible to allow for future changes 
In reou 1 rement s , 
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4.0 conventions and standards 


4.1 Label 1 1 no 


4.1.1 Compiler Internal labelling 

Routine or module labels may consist of one to six 
characters and should* If possible* be self descrip- 
tive. 

Examples the symbol "LPTINT" could refer to an In* 
terrupt address for a line printer routine. 


4.1.2 Object outout labelling conventions 

A statement label generated bv the compiler consists 
of a M ." followed by the source statement label. 

Example! Statement number 237 would generate an 
Internal label of .237 

A format label Is similar but uses a Instead of 

a , 


EXAMPLES $10 

Other compiler generated labels will consist of a 
”$•' followed by a single alphabetic character des- 
cribing the label followed by 4 numeric digits. The 
following Is a list of allowed labels (nnnn refer to 
the four numeric digits); 

SInnnn Integer or Logical constant 

SRnnnn Real constant 

SDnnnn Double or Complex constant 

SFpnnn Internal location labels (for example, DO lo- 
op termination label) 


4.2 Registers 

To avoid confusion, the genera) registers will al 
ways be referred to as follows; 



PDP-11 FORTRAN, 130-309-001-06 
Conventions and Standards 


PAGE 17 


REGISTERS 0-5 ■ R0-R5 
REGISTER 6 * SP 

REGISTER 7 ■ PC 

Certain special registers will be referred to ac- 
cording to the followinai 

STATUS REGISTER CLOC. 177776) * P3W 
SWITCH REGISTER CLOC, 177570) « SWR 

In a FORTRAN compiled routine, no registers will 
ever be saved or restored upon calling or being 
called by an external routine. It is assumed that 
R5 is the subroutine call register, R4 Is the 
threaded code pointer, and that R0-R3 may be used 
without prejudice. 


4,3 The FORTRAN internal documentation will consist 
o*: 

A, ANSI FORTRAN IV Specification, X3.9, 1966, 

B, This document 

C, Specification for the Object Time System, 
130-311-002. 

D, Pertinent and profuse comments on the source 
listings. 

Other associated documentation includes* PDP-11 FOR- 
TRAN Programming Manual# Getting on the air with 
FORTRAN, 


4,4 Operating Conventions 

All operating conventions and command strings# etc, 
must conform to those of the disk monitor. 


4.5 I/O 

All input and output for FORTRAN will be done using 
the standard provisions supplied by the Disk Moni- 
tor • 
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4.6 Character Set/Codes 

The character set/codes for FORTRAN will be com- 
pletely compatible with the ANSI ASCII conventions. 

The compiler will not convert lower ease to uooer 
ease, though lower case may be used only In Holler- 
ith constants and literal strings. Illegal 
non-printing characters are Printed as a circumflex 
(up arrow) followed bv the alphabetic equivalent of 
the offending character (e.g, 001 *aA), The OTS 

will allow all ASCII characters to be Input or out- 
put under "A" format. The compiler recognizes as 
meaningful only the ANSI standard compiler Input 
characters. 


4,7 Calling Conventions 


FORTRAN callable subroutines and functions will obey 
the following object code calling conventions* 


All argument 

addresses 

wl 1 1 be placed In a list 

f o 1 — 

lowing the 

subprogram 

call. The 

standard sequence 

will be * 

•GLOBL 

SUBR 




JSR 

R5, SUBR 




8R 

XX 




A 





B 

• 

• 

• 





Z 




XX* 





Note* The even byte of 

the branch 

Inst ruet 1 on 

f 0 1 - 


lowing the J8R contains the number of arguments and 
Is Pointed to by R5 after the JSR Is executed. 

Subprograms are responsible for not altering the 
contents of register R5 since It Is the parameter 
list pointer. 

Function subprograms, In addition to the above, will 
return the result In registers R0-R3(number of re- 
gisters used Is dependent on tyoe, e,q. - Integer 
uses R0, real uses R0 and Rl, etc.) 
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4.8 Fortran POLISH Calls (Threaded Code) 

This call is desiqned to take advantaoe of the sim- 
ple POLISH method for evaluating expressions. It 
assumes that a typical expression consists of a 
large number of very simple operations done in a li- 
near sequence . 

The i mpl ement at i on of this technique as described 
below makes several assumptions* 

1. The first operation done in a POLISH se- 
quence is invariably a "push", 

2. It is not neeessary to place breakpoints(as 
in ODT or DDT) in the middle of an arithmet- 
ic statement, 

3. SPeeq will not suffer by assignment of a re- 
qiste»* for soecial Purposes, 

Description of this mode is best done using a simple 
exempl el 

The statement A*B + C would generate code similar to 
the following (section 4,8,5 describes the entry in- 
to POLISH mode). 


$P00(dl 

$P0002 

$AD» 

$PQP3 , A 
.♦2 


JTHE VARIABLE B IS PUSHED 
;0N THE STACK 

»EACH OPERATION CONSISTS OF THE 
! ADDRESS OF THE ROUTINE TO 
I BE EXECUTED. A PUSH PLACES 

* a VALUE on the stack, A POP 
f REMOVES a value 

* THIS LINE WILL CAUSE POLISH MODE 
*to be EXITED, 

j AND NORMAL EXECUTION 
j RESUMED, 


The subroutines called would be as follows* 


$ P 0 0 0 1 t 

MOV 


BR 

SP00J2: 

MOV 

SF0001 s 

MOV 


MQV 


JMP 

$PQP3* 

MQV 


MOV 


MQV 


JMP 


*B+4,R0 ,get the address of b 
SF0P0 1 ; JUMP TO COMMON push 

4C+4,R0 *get the address of c 
- ( R0 ) , - ( SP) | PUSH 
-(RP)f-(SP) * Two WORDS ON STACK 
P ( R4 ) + * JUMP TO NFXT ROUTINE 

(R4) + ,R3 J GET ADDRESS OF 

* VARIABLE DESTINATION 
(SP)+, (R3)+ >P0P A VALUE 
(SP)+, (R3)+ t TO THF VARIABLE 
® ( R4 ) + * GO TO NEXT ROUTINE 
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(SADR is an QTS routine to add two floating ooint 
numbers. See section 3.1,2). 

Note that the JMP a ( R4 ) + jumps to the next routine 
In the list as well as incrementing R4 over that 
Item In the thread. 

All internal functions are called in this manner and 
must exit using a JMR e(R4)+ and must clear anv 
stack space used (except for the return value which 
is left on the too of the stack). 

All routines explicitly callable by the user (i.e. 
- subroutines, external functions) are called using 
the PDP-11 subroutine calling convent i on ( sect i on 
4.7), 


4,8.1 The following basic decisions were madei 

1. R4 will be used as the threaded code po- 
inter. 

2. All code (including Integer arithmetic) will 
be handled in POLISH mode exceet for actual 
subroutine (and function) linkaoe which will 
be executed in-line. 

3. A majority of the service routines detailed 
herein can actually be made .GLOBL to the 
compilation and hence occur only once in a 
core load (rather than included in each com- 
piled modul e) . 

4. Any routines not explicitly mentioned as be- 

ing locally generated are assumed to be glo- 
bal to the program and available from the 
FORTRAN library (e.o, - SMLF, etc.) 


4,8.2 On return from a subroutine or function the 
value is in R0, R0 and R 1 , or R0 thru R3, Service 
routines to move these to stack are* 


SPSHR4 : MOV 
MOV 

SPSHR2! MOV 
SPSHRls MOV 
JMP 


R3 , - ( SP) f PUSH FOUR WORDS 
R2 , • ( SP) 

R t , - ( SP) * PUSH TWO WORDS 
R0,-(Sp) | PUSH ONE WORD 
*(R4)t 
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4.8*3 Getting and outtlna to the stack given an ad- 
dress which results fro* subscrlot calculation 
proceeds as follows: 


JGET4* 

MOV 

6IR0) »-(SP) 

1 FOUR 

WORD 

CASE 


MOV 

4(R0),-(SP) 




SGET2! 

MOV 

2(P0) #*( SP ) 

l TWO 

WORD 

CASE 

SGET1 * 

MOV 

•R0f-(SP) 

» ONE 

WORD 

CASE 


JMP 

* ( R4 ) + 




$PUT4t 

MOV 

(SP)+a (R0)+ 





MOV 

(SP)+, (R0)+ 




$PUT2* 

MOV 

(SP)+, (R0) + 




SPIJT1 S 

MOV 

(8P)+, (R0)+ 





JMP 

e(R4)+ 





4,8.4 Explicit exit from POLISH mode can be made 
with a word containing the address of the following 
word, E.G.* 

... jin polish mode 

. 'wORD . + 2 f LEAVE POLISH MODE 
... * CONTROL PASSES TO HERE 


4.8.5 Entry to POLISH mode Is made via a special 
rout 1 ne 

SPOLSH: TST CSPJ+ * DELETE OLD VALUE OF 

»R4 PUSHED ON ENTRY 
JMP 0(P4)+ * AND WE • RE 0FF11 


4.8.6 Finally we come to the handling of formal par- 
ameters. The POLISH mode string Is essentially the 
same. The service sections look like the following* 

* A IS FLOATING 

SPNNNNj MOV N(R5),R0 ; GET THE ADDRESS FROM 

: CALLING SEQUENCE WHERE "N" 
^DEPENDS ON POSITION IN 

* formal parameter LIST 

JMP JGET2 ; NOW JUST LIKE BEFORE 

The one word and four word forms differ only In 
which SPUTx Is Invoked, 

Assignment to a formal Parameter Is* 
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SP0PP2: MOV (R4)+,R0 


ADD R5,R0 

MOV SR0, R0 

JMP SPUT2 


;get displacement OF 
I THJS FORMAL IN CALL 
JADDRESS OF ADDRESS 

^ADDRESS OF parameter 

f STORE TWO WORDS FROM 
iSTACK 


Similarly for one and four word data. Assignments 
to formals are like local assignments exeeot that 
the displacement In the call seauence to the aetual 
address must be given to the service routine Instead 
of the actual base address. 


4,9 Data Conventions 


4.9.1 Integer format (Figure 2) 

An Integer number Is a 16-bit signed quantity, when 
In two word format, It Is assigned two words, with 
only the high order word (1,e., the word with the 
lower address) being significant. 

The result of any operation which would exceed 16 
bits will cause a diagnostic to be Issued bv the 
OTS. 


4.9,2 Real format (Figure 3) 

The Real number format consists of two words of data 
as follows; 

WORD N - PIT 15 - SIGN OF MANTISSA 

BITS 7-14 - BINARY EXCESS 128 EXPONENT 
BITS 0-6 - HIGH ORDER MANTISSA 
WORD N+2 - BITS 0-15 - LOW ORDER MANTISSA 

This Is a sign-magnitude format with binary normall" 
zat 1 on. 

This format Is limited to normalized numbers and the 
high order hit of the mantissa Is always 1, there- 
fore this bit Is discarded In this format giving an 
effective precision of 24 Bits, 
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4.9.3 Double precision format (Figure 3) 

WORD N - SAME AS 4,9,2 
WORD N+2 - SA^E AS 4,9,2 
WORD N+4 - LOWER ORDER MANTISSA 
WORD N + 6 - LOWEST ORDER MANTISSA 

The effective precision ia 56 bits. 


4.9.4 Complex format (Figure 4) 

WORD N AND N+2 - REAL PART (FORMAT AS IN 4,9.2) 
WORD N + 4 AND M + 6 - IMAG PART (FORMAT AS IN 4,9,2) 


4.9.5 Byte format 

Each data item in this format is 8 bits long. 
Logical, masking, and arithmetic operations are al- 
1 owed. 

Any arithmetic operations done in byte mode must 
take into account the limited size that anv value 
may have. The range of numbers from +127 to -128 
may be represented. Any arithmetic operations will 
be accomplished by taking both 8-bit operands, ex- 
tending the sign to a full word, doing the desired 
operation, and then truncating the result to 8 bits. 
No diagnostic will be issued for overflow errors. 
The result of such an operation, thus, is allowed to 
be at most 8 bits long. Logical and masking opera- 
tions will work with the whole byte at a time. 


4,9.6 Character strings 

A character string is defined to be a string of byte 
length elements. The length of this form will be 
limited to 255, If the string length is odd, a 
blank will be appended to fill out to a word bounda- 
ry. 


4.9.7 Logical values 

A Logical value as represented by .TRUE, will be 
edual to the integer value -l. A logical value as 
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represented bv .FALSE, will be equal to the inteqer 
value 0. 


4.10 File conventions 

See Object Tine System specification 130-311-002, 


4.11 Compiler listino format with summaries 

The following is a short example showinq the various 
kinds of information supplied to the user by the 
compiler. This example is complete, including the 
heading as well as all other information supplied in 
a normal compi 1 e. 


FORTRAN V004A 10:26*05 16-JUN-72 PAGE 

C LISTING SUMMARY EXAMPLE 
DIMENSION X ( 1 0 ) 

COMMON X 
COMMON /ABC/YU) 

XC1)«A(1.,2.) 

call b 

CALL EXIT 
END 


ROUTINES CALLED* 

A , B , EXIT 


SWITCHES * /0N,/CK,/SU 


BLOCK 

MAIN, 47 
•$$$$, 20 
ABC 9 


LENGTH 

( 000136) ★ 

(B00I450) 

(040020) 


★★COMPILER ----- CORE** 
PHASE USED FREE 

DECLARATIVES 00366 17853 
EXECUTABLES 00459 17761 
ASSEMBLY 00999 20183 


Several items of interest are described above. 
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The heading liner which Is printed at the top of ev- 
ery page of the listing, shows the cage number, the 
date and time of the compile and the version number 
of the compiler used. 

The listing proper follows. 

If subroutines or functions are called by the rou- 
tine, they are summarized Immediately after the end 
statement is processed. This Is of Interest mainly 
in large programs where there may be some confusion 
as to which routines are reauired by what. 

The switch summary describes what switches were used 
In the compile. In this particular example, the /ON 
(one-word Integers), /C« (array pounds checking), 
and the /SU (suppress traeeback) switches were set, 
A side note should be noted that the /SU switch also 
causes suppression of the sequence numbers which are 
normally Printed on the left margin of the listing. 

The bloek summary describes In decimal words and oc- 
tal bytes the length of the compiled program and the 
length of each COMMON block used in the program. 
The Program name entry Is flagged with an fol- 
lowing the entry, A name of MAIN, describes the 
main program name, A name of ,$*$$, describes 
blank Common, 

The final section of the summary details how much 
storage was used bv each of the three phases of the 
compiler In decimal words. 
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5.0 DATA STRUCTURES 

The tables used bv the compiler, as described below# 
are dynamically allocated at the time the compiler 
is first started (see figure 3), The procedure is 
as foil ows : 

1. Find out the total amount of space used by 
the monitor and its buffers. 

2. Allocate the compiler stack area immediately 
above the monitor a»*ea, 

3. Allocate a minimal symbol table area above 
the stack. 

4. Set up the statement buffer just below the 
compiler overlay area. 

5. Set up the CQMMON/EOUI VALENCE table. 

If a table overflow in the COMmON/EQUTV ALENCE table 
occurs it will exoand downwards. If an overflow oc- 
curs in the symbol table occurs# it expands uowards. 
An i r reeoverabl e error occurs if these two tables 
meet (SYMBOL TABLE OVERFLOW). 

After the executable statements have started, the 
C0MM0N/EQUIVALE K| CE table is no lcnqer needed and it 
is discarded, giving more room tor the symbol table. 


5.1 Compiler Data Structures 

Each internal table will initially be assigned a 
block of core storaqe, Each block will be managed 
bv its own set of special routines. Overflow of anv 
block will result in an aborted run. 


5.2 Main Symbol Table (Figure 5) 

The symbol table consists of a linked chain of en- 
tries in free core, 

5.2.1 Entry format 


Word 0 

Bits 15-14 ent rv types 

00 Data items, including all user and compiler de- 
fined variables and literals, 

01 Statement functions. 
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10 External functions. 

Bits 13-11 Data type: 

000 Loaical -1 

001 Looical-2 

010 Inteder 

011 Real 

100 Double precision 

101 Complex 

110 Hollerith 

111 Unasslqned 

Bit 10 Adjustable array flea 

Bit 9 Set If entry Is program name 

Bit 8 Constant bit 

Bits 7-0 Length of data Item in bytesfif Constant 
b 1 1 * 1 ) 

Parameter list 1ndex(1f constant b1t*0 and 
parameter*! ) , 


word 1 

Bit 15 Common indicator (*1 If Item Is In common) 

NOTE: This Indicator and the parameter indicator 
will never both * 1 simultaneously. 

Bit 14 Adjustable array indicator (*1 If Item de- 
fines an adjustable array). 

Bit 13 Equivalence indicator (*1 If item appeared In 
an EQUIVALENCE statement). 

Bit 12 Parameter indicator (*1 if variable is a par- 
ameter to be accessed by Indexed addresslno throuqh 
R5) . 

NOTE: This Indicator and the CO M HON indicator will 
never both * 1 simultaneously. 

Bits 11-0 Serial number of entry 


Word 2: 

Bits 15-3 adoress of next symbol table entry. Equal 
to -1 If this Is the last entry in the table, 

word 3: 

Bits 15-0 1st three characters of symbol name (RADIX 
50 ) 

word 4: 

Bits 15-3 second three characters of symbol name. 
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word 5 

Sit 15 Single reference bit 

Bit 14 Assign bit (use in ASSIGN statement) 

Bit 13 Explicit bit (explicit typing) 

Bit 12 - Useo in expression bit 
Bit 11 - Generate Push flag 
Bits 10-9 Dimensions of item 
Bit 8 - Unused 

Bits 7-0 - Common block seauence (position in com- 
mon chain) 

0 ■> not in COMMON 

1 *> blank COMMON 


Word 6 s 

Bits 15-0 ADB pointer. Points to the associated Ar- 
ray Descriptor Block if this item is dimensioned 
(I.E,, if the dimension indicator is mon-zero). The 
ADB occuoies space in the main symbol table area. 
The pointer from the symbol table entry to the ADB 
is relative to the start of the ADB, 

Additional words - value of entry. 

Present only if the constant indicator Is set. The 
value will be represented as the binary eouivalent 
of the original source number* or as a string of AS- 
CII bvtes terminated by at least one byte s 0 If the 
item is a Hollerith constant. The lennth of this 
field (not including Padded blanks and terminating 
zeros) in bvtes is contained in the data item lenath 
(section 5, 2, 1,0), 


5.3 Common Table. 

A single contiguous area will be used to accomodate 
information collected from both COMMON and EQUIVA- 
LENCE statements. This area is allocated at the 
high end of memory, below the compiler. It grows 
''down" toward the top of the symbol table. After 
the last declaration statement is processed it will 
be Possible to perform storage allocation for all 
variables involved in either COMMON or EQUIVALENCE 
whereupon the area used can be recovered for other 
use bv the compiler. 

Within this area, COMMON will use two data s t r u c - 
t u res S 


5,3.1 Common block header 
A 6 word item: 

Word 0 - Link to next block header (if any). 
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Word 1 - 1st two characters of block name (ASCII), 
Word 2 - 2nd two characters of block name (ASCII), 
word 3 - Last two characters of block name (ASCII), 
Word 4-0 terminator for name. 

Word 5 - Link to COMMON block list. 

b.3.2 COMMON block. 1 1st 

A variable length block contalnlno: 

word n+1 - Link to next orouo In twls block (If 
any), 

word n - Serial number of varl abl e/array , 

• 

• 

Word 1 - Serial number of va r 1 ab 1 e/ ar r av , 

Word 0 - Zero terminator. 


5,4 Array Descrlotor Block Table (AD8) (Figure 1) 

This table has an entry for each array defined In 
the subprogram being compiled. The ADB Is available 
to the compiler so that It may compute and fix array 
entry references when the subscripts are constants, 
and so that It may reserve the appropriate amount of 
memory for eac h array during "END" processing. The 
format of the compile -time and the object time ADB's 
are not the same. See also section 3. 1.2, 6. 


Word 0 : 

Link to next ADP relative to the base of the symbol 
table (*3 If this Is the last ADB). 

word 1 

Bits 15-14 Number of dimensions In this array 
Bits 13-11 Data type (see section 5,2,1) 

BltS 7-0 size In bytes of a data element. 

Word 2: 

Number of Index Items, first dimension 
Word 3j 

Number of Index Items* 2nd dimension 
Word 4 : 

Number of Index Items, 3rd dimension 
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5.4.2 Words 4 and 3, or Just word 3, are oresent 
for 3 dimensional and for 2 dimensional arrays, res- 
pectively. If any dimension is adjustable, the cor- 
responding index item word will contain a zero. 


5.5 Eauivalence Block 

A block is created for each ai*oup of items which are 
eouivalenced to each other. Format is: 

word 1,2 - A two word work area for this orcuo 
word 3 - Link to next grout? (if any) 

Word 3 ♦ N - Serial number of N - 1 H item in this group 
Word 4 +n - Total offset (in bytes) of item in this 
group from the base of the items as defined. 

Word m - Zero terminator 


5.6 Implicit Table 

A 26(10) byte table which relates letters of the al- 
phabet to the variable tyoe-modes to be selected 
whenever implicit mode assignment is called for. 

If the first character of a symbol has octal repre- 
sentation N, the entry at relative byte position M-l 
contains the mode to be implicitly used for that 
symbol • 


5.7 Do Table (Figure 7) 

Created uoon processing of a DO statement (see sec- 
tion 7.2.21), 

5.7.1 Table format 

words 0,1 - Statement number of terminal statement 
in RADIX 50. 

Word 2 - Serial number of destination return label 
word 3 - Pointer to control variable symbol table 
entry 

Word 4 - Point. er to initial parameter symbol table 
ent ry 

Word 5 - Pointer to terminal Parameter symbol table 

ent ry 

word 6 - Pointer to step value symbol table entry 
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b.8 Object T i «e Data Structures 

See Object Time System Specification, 130-311-002, 


5,9 Stack ang Table st ructures -i n expression evalua- 
t i on 


Three stacxs exist for evaluating arithmetic exores- 

sions. R4 is 

the operator stack, MS is the mode 

stack, and Sp (Rfc) is the final code stack. 

Items on the p 4 

stack have 

the following formats 

Bits lb-6 - 

Goerator Value ID 

Bits 7-0 * Operator Priority 

operator 

VALUE ID 

PRIORITY 

.OP. 

1 

0 

.and. 

2 

1 

.nOt , 

3 

2 

.LT, 

12 

3 

.gt. 

13 

3 

.eg. 

14 

3 

• N E . 

15 

3 

. L E . 

16 

3 

.ge. 

17 

3 

+ 

4 

4 

m 

5 

4 

* 

6 

5 

/ 

7 

5 

* * 

10 

6 

UNARY - 

1 1 

7 

Items on the R5 

stack have 

the following format* 

bit 15 - Zero 


Bits 14-12 - 

Mode of S p 

item 

Bits 11-0 - 

position of 

item on sp stack rela- 


tive to S T k C N T . 


MODE VALUE 

LOGICALM 0 

LOGICAL*? 1 

integer ? 

REAL 3 

DOUBLE 4 

COMPLEX 5 
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Item’s on tne SP stack are of the fdlowinq forms 
Variables - 
Bit 15 - Zero 

Bits 14-12 - Mode chanqe flaq 
Bits 11-fcJ - Variable serial number 

Operators - 

Bit 15 - One 

Bits 14-12 - Mode chanqe 
Bit 11 -SVSP Flag 
Bit 10 - F u f C Flag 
Bit 9 - ARRY Flag 
Bit 8 - FNEMO Flag 
Bits 7-0 Operator ID 

If SVSP*1, the following word contains the $F label 
required and the ID contains the tyoe. 

If ARPysl, the ID contains the number of subscripts 
for the array call and the next word contains 
the AD8 serial number. 

FUNC» 1 defines the start of a function definition 
sub-mode, (bits C3-7 have the parameter count* 
the second word has the deoth, and the third 
word has the serial), 

FNEND*1 turns off function sub-mooe 

Note that normal mode conversions must be checked in 
the ADB serial number pointer when AR9Y*1. 

The function parameter lists h a ve the serial numbers 
of vari abl es. 

If bits 15-12 are all * i the parameter is a 
substitution label. 

If FNENDsl* the ID contains the number of bytes 
to pop from the stack. 

The exponentiation operator has a second word which 
contains the tyoe of the base in bits 14-12, 
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6.0 input/output 


6.1 Compi 1 er I/O 

All compiler T/n i S dene In formatted ASCII through 
the Disk Monitor, 

6.2 Object T i«e I/O 
See 130-311-002 

6.3 Diagnostic Outout 

A FORTRAN source diagnostic will consist of the fol- 
1 ow i nq : 

(XXXXXYXXXXX] 

ERPCR zzz 
Message, 

Immediately following the line in error, 5 char- 
acters ( XX Xx X ) on either side of the current char- 
acter position (Y) will be Printed (with control 
characters interpreted also) inside the brackets* 
followed by the error number (Z 7.1) t and the text of 
the message (if any) correspond! ng to the error 
number as found in the disk error directory. The 
message mav be any ASCII string less than 6A char- 
acters long and terminated by a <CR,LF>. 

All error diaemostics will be printed on the source 
listing and will also be placed as comments in the 
object file. 

Each error message will be Prefixed bv a single 
character describing the class of error. An "F" 
(Fatal) error will definitely cause improper execu- 
tion, so execution should not be attempted. A "W" 
(Warning) error may cause improper execution, but is 
generally discretionary. An "i H (Informative) error 
should not affect procram execution. The "S" error 
(issued only if the /EP switch was set) flags items 
which might be errors depending on the context of 
the item, (For instance, mixed mode arithmetic is 
noted using "S" enrors.) 

Each error diagnostic is described in detail in Ap- 
pendix E of the FORTRAN manual. 
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7.0 LANGUAGE 


7.1 Source Language 

Ite^s i mol evented for 1130 co^cat i b 1 i i t v are taaoed 
"(1130)". 


7.1.1 Language exceptions and differences from ANSI 
FORTRAN IV, 

The following are keyed to the corresoomdina section 
numbers i n the ANSI FORTRAN IV specification, 

<3,2> Line formats, 

A TAB nay oe used in lieu of n u itiple spaces at the 
start of a line. If a numeric character follows the 
TAB# a continuation is assumed. 

The default number of cent i nuat i ons is specified to 
be five. Anv number from 0 to 99 nay be optionally 
be declared at compile time. 

<4 , 2> Data types. 

Integers are lb bit signed numbers. They are nor- 
mally storec in a two word format where the first 
word is the value and the second is a filler word. 
Single word integers nay be selected as described in 
sect ion 3.2, 

Real numoers use a two word format as described in 
section 4,9,2, 

Double precision uses a four word format ( sect i on 
4.9.3) . 

Comdex uses a four word format (sect i on 4,9.4). 

Logical*! is a special one byte format useable for 
alphanumeric and limited arithmetic manipulations, 

<5,l,l> Constants, 

Hex and octal constants will be allowed within DATA 
statements. The formats are! 

ZNNNN FOR A HEX CONSTANT ( 1 1 33) 
ONNNN FOR AN OCTAL CONSTANT 
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Where NNNN is the hex or octal value nesDect i vel y. 
Note that hex values rav not exceed FFFF and octal 
values may not exceed 1 77777, 

Octal constants may also be specified anywhere in a 
proorain ov specifying a " (double auote) followed by 
fro" one to six octal digits not exceeding 177777, 

An alternate form of Hollerith constant is a string 
of characters surrounded by single quotes. Within 
the string# two consecutive single quotes denote a 
single auote in the string. 


<6,1> Arithmetic expressions 

General mixed mode expressions are allowed with no 
rest r i ct i ons , 

<7,1, 2,1, 2> Assigned GOTO 

The label list is optional, A comoiler diagnostic 
will be supplied if the variable is also used in an 
expression, 

<7,1, 2,1, 3> Computed GOTO 

when the value of the expressin falls outside the 
range of the supplied statements# an object time er- 
ror oiagnostic will be issued, 

<7 . 1 , 2, 7> STOP and PAUSE N, 

N may be a one to six digit octal constant (not 
laroer than 177777). 

The value specified will be typed on the teleprinter 
when the STOP or PAUSF is executed, 

<7.1,2.8> DO Statement, 

Integer variables or constants mav be used for the 
do Parameters ( 1 1 3?) , 

<7,1,3> I/O Statements, 

The following statements are aaded to facilitate 
random access I/O to a fixed or moving head 
di sk( 1 13(9) , 


A) DEFINE FILF a(m,1,U#v) 
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Set uo a file as follows* 

a - Logical unit number (an integer constant from 1 
to 32767). This is the descriptor by which the file 
is recognized when a FIND* READ or WRITE is execut- 
ed. 

m - Maximum number of records in the file, 

1 - Length of each record in words. 

U - The letter ”1!" which declares the file to be un- 
formatted (e.a. - binary). N 0 other designation is 

1 ega 1 , 

v - Associated variable name to be used for the re- 
cord oo inter. 


6) Find (a'b) 

Position the disk head properly for record Ah of 
file Aa, This is a no-operation command for disks 
as currently used under DOS. "a" refers to the sym- 
bolic file designator and is described in section 
(A) above* "b" is a simple Integer variable or con- 
stant not greater than 32767, 

C) READ (a'b) list 

WRITE (a'b) list 

Read or write the b-th record of file a. "a" and 
"b" are as described above. 

An I/O statement may optionally specify Enri-of-file 
and/or error conditions as shown in this example* 

READ (1, 100,END=11,ERR»20)LIST 

where END 8 10 specifies statement 10 for End-of-file 
processing and ERR«2tf specifies statement 20 for er- 
ror processing. 

D) ENCODE (cnt , fmt , array) list 
DECODE (cnt , fmt , array ) list 

Encode or Decode "cnt" characters from "array" using 
the format "fmt", 

END » and/or ERR* conditions may be optionally speci- 
fied but have no mean i no and will cause no actions. 
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<7,2. 1 > Soec i f i cat i on Statements. 

Alternate forms of Tyoe statements «»v be as fol- 
lows ( 1 1 33 ) : 

BYTE » LOGIC AL*1 
INTFGFR a INTEGFR*2 
BEAL » PEAL*A 
OOU3LF * RE AL*8 

An IMPLICIT tVDe statement is also allowed. It 
causes all variables beginning with some specified 
letter to De consi aered as a given tvne, unless ex- 
plicitly stated otherwise. 

EXAMPLE J 

implicit real** (m-p,r) 

INTEGER MRP 

Causes variable MRR to be an inteaer, while all oth- 
er variables beoinnina with M-P and R are treated as 
real. 


E.G. - STANDARD FORTRAN WOULD I*PLY: 

IMPLICIT REAL*4 (A-d,n-Z) 
IMPLICIT INTEGER*? CI-N) 


<7,2,3> FORMATS. 

The M o" (octal) field specification is allowed, 

Th e "T" (TAP) specification is allowed. 

An alternate form of the M soec i f i c at i on is a string 
of characters surrounded by single Quotes. 


7.1.2 Statement Order Restrictions 

State-ents must occur in the order specified in the 
ANSI specification extent that all DATA statements 
must occur after all other declaratives except 
ASF's. 

ASF's must occur after all other declaratives and 
before any executables. 

The IMPLICIT statement# when u$eo# must be the first 
statement of an v routine. It may be ©receded only 
by the SUBROUTINE or FUNCTION statement. 
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7.2 Object Lanouage OutDut 

Any statement generating executable code will also 
generate a preamble consisting of the line number 
(see section 4.1.2) if anv followed bv* 

$SEG,nnnonn 

where nnnnnn is the numeric seguence of the state- 
ment in the rrogra", SSEG is a call to the 
trace-back Hanoi er which keeps tracx of where execu- 
tion is occurring within the user program, If the 
/SU switch (section 3.2.1) is soecified this pream- 
ble is not generate"). 


7.2.1 SUBROUTINE, FUNCTION Statements 

The SUBROUTINE and FUNCTION statements cause inter- 
nal flags ano counters to be set describing! 

A) The ngmoer of parameters and their Position 
8 ) Whether this is a function or a subroutine 
C ) The routine "ate and tvpe 

A non-fatal oiaonostic is given if the statement has 
a line number . 


The output generated is: 


.title 

, CSECT 
.GLOBE 
XXX? JSR 

.globe 

$ N A M , P , 


XXX 

xxx 

%4, JPOlSH 
*NAM, 5P0LSH, $SEG 
* , NNNNNN, MMMUMU 


where XXX is the name of the routine, a mein pro- 
gram is handled in the sa m e fashion, exceot that the 
routine name is defined to be " f A I N . " . The routine 
call $NAN is a Trace-Back function havina four oar- 
ameters, the final two (nnnnnn and m m « m m to ) of which 
is the routine name in RADIX 50 . If the /SU switch 
is specified, the SSEP global is deleted. 


7.2.2 EXTERNAL Statement 

A) Routine na*e cannot h a ve bee" previously defined, 
6 ) Doesn't allow a line number. 
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The output generated consists of a ,G|_0BL ton every 
nape declared external which is not a formal Parame- 
ter. A f 1 aa is also set in t«e symbol table marking 
t*e entry as external 1 y defined. 


7.2.3 CALL 

CALL XXX(X1,X?,XJ,...XN) compiles as: 

• *2 

.GLHHL xxx 
J5R KB, XXX 

BP tFNNNM 

XI 
X 2 


X M 

$ F M N Nj Si • 

JSR %4,SP0LSH 

where XXX is the na«e of the subroutine to be called 
ana XI, X 2 , ... *N are the arguments of the list. 

In the case of compound Parameters. the value is 
placed on the stack and its address is inserted in 
the list usino the routine *SVS P . M Pon return, the 
stack is cleared with an ADD, 

Ex amp 1 e : 


CALL ABC (A,8+C,D) 


woulc generate the following: 

iPi<33fc)2 ; PUSH VALUE OF B 

$00003 >PUSH VALUE DF C 

SADF jADD THEM 

S3VSP#*F0?B1 J S A VF THE ADDRESS 
. + 2 

.GLOBL ARC 
JSR Xb.ABC 

BP ,+lb 

A 

5Fv3M0lJ 0 
D 

ADD 

JSR 


*4, %6 
%4, 5P0LSH 
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7.2.4 RETURN 
Generates i 


JRET 

In a main proaram, a diagnostic is issued for any 
occurrence of RETURN. In a function subprogram, 
eoae is also Generated to olace the function result 
in R0-R3 before executing the SRET. 


7.2.6 GOTO XXX 
Gener at es ! 


ST«, .XXX 

ribere XX* is the statement "u^btr in guestion and 
STR is a POLISH mooe ]u»d, 

Examp 1 e : 


GOTO 237 
nOULD GENERATE : 


$ Tk , .237 

The computed GOTO form: 

GOTO (12,27, 30) , I 


comp i 1 es as 


The 


*P.I 
STRX, 3 

.12 

.23 

.30 

simple assigned 


; VALUE OF I TP ST 4 C K 
{CONFUTED G n TP ROUTINE 
j A NO NUMBER OF LABELS 
jFOLLOnFO BY ALL OF 

: the labels 

5 IN QUESTION 
GOTO: 


GOTO J 


compiles as s 


SR. J 
$TRA 


VALUE OF J TO STACK 

service Routine 
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Assigned GQTQs with a list 

GOTO J, (10,20,30) 


cofrc 1 1 e as 


•BP. J 
STRAl 
.10 
.20 
, 30 
0 


{VALUE of j TO STACK 

{ ASSIGNED GOTO 

{ LAPEL STRING 

{TERMINATED 

{PY A 

{7E&0 


7.2.6 ASSIGN 

A3SIGN 15 TO I would generate 

$4S, ,15, 1 

if I is a local variable or 

5 ASP, , 1 5 , N 

if I is a dummy argument with a Parameter offser of 
" N " . 

when this statement is encountered, a flag is set to 
disallow using tHe variable assigned as a parameter 
in a cal 1 statement (or function call) and to disal- 
low its use in arithmetic calculations. 


7.2.7 CONTINUE 
Generates no codell 

7.2.8 PAUSE XXX 
Generates J 

. OLOBl SPAUSE 
&PAUSF, XXX 

where XXX is the octal constant to be printed on the 
consol e. 
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7.2.9 STOP XXX 
Generates: 


• GLQBL SSTOP 
$ STOP, XXX 

where XXX is the octal constant to be printed on the 
console. 


7.2.10 FORMAT 


10 FORMAT (XXXX) would compile as: 

.10; STR,$FNNNN 

$10: .ASCII a(xxxx)a 

.EVEN 

$fnnnn: 

where XXXX is the contents of the FORMAT statement. 


7.2.11 ENOFILE 
would generate: 


. GLOBl SENDFL 
SPnnnn 

SENDFL 


Where nnnn is the desired unit number. 


7.2.12 REWIND 

As in 7.2.11 exceot use t h e routine "SRwlND", 


7.2.13 BACKSPACE 


As in 7.2.11 exceot use the routine " $BCKSP” 



PAGE 43 


PDP-11 FORTRAN, 1 30-3P9-00 1 -06 
Language 


7.2.14 END 

Generates a "RETURN” followed bv all constants* da- 
ta* ana variables for the routine followed by a .END 
statement. 

In a main orooram* a: 

• GLOBL SEX T T 
SEXIT 

Is generated instead of a "RETURN". 


7.2.15 TYPF statements 

This routine is entered with the tVDe in Rid. 

The TYPE orocessor will make symbol table entries 
for each variable not already in the symbol table* 
and will set fields % indicators as follows: 

DATA TYPE 

DIMENSION. (IF SPECIFIED BY PARENTHESES) 

LENGTH OF ITEM 

ADJUSTABLE ARRAY (IF A VARIABLE APPEARS BETWEEN 
PARENTHESES) 

SYMBOL 


7,2.16 DIMENSION statements 

This orocessor makes symbol table entries for each 
variable not already in the symbol table* and sets 
symbol table fields as follows: 

DATA TYPE (IMPLICIT DEF IF NOT ALREADY DEFINED) 
DIMENSION 

LENGTH OF DATA TTFM (IMPLICIT IF NOT ALREADY DEFINED) 

adjustable ARRAY 
SYMBOL 


The "END" orocessor will outDUt to the assembler all 
the ADB's in object-time format (see section 
3. 1.2.6) and will reserve snace for all arrays. 



PAGF 44 


PDP-11 FORTRAN# i30-3«*9-«m-06 

tanguaae 


7.2.17 COM M QN 

Each 1 1st item is placed in the main symbol table 
(if it is not already there) and# if dimensions are 
soecified# appropriate A05 items are produced (see 
section 7, 2. IF). 

The definitions will be mane via the operator in 
PAL-1 1 « and will be relative to the base of the ao- 
prooriately named CSECT. 


7.2.18 EQUIVALENCE 


7.2.18,1 The general form of the EQUIVALENCE state- 
ment is! 

EQUIVALENCE (A1(I1),a2(I2)...An(In)# ( S i ( J 1 . 

whene the "A" terms are eouivaleneed to each other# 
the ”9" tem s are eauivalenced to each other# etc. 

The "A" terms are array identifiers or single vari- 
ables, For array identifiers the "I" terms ane con- 
stant subscripts. The compiler reouires the tyte 
position of each item in the eauivalence list# and 
will therefore reolace the "I" term hv the equiva- 
lent "index value" of the item. The index value is 
the address of the item relative to the start o* the 
array is computed just as at object time (see sec- 
tion 3, 1,2, 6), 

If a term is a simple variable# the I term will not 
appear in the source# and the compiler will taVe it 
to be 0. 

In what follows the symbols I# II# ...« I M # etc,# 
inoicate "index values". we then define the "off- 
set" of Ah; 

OFFSET AK s H A X ( I b ) - I* 

Where II# 12# .,,# IM now denote the index values of 

the items# we can then sav that! 

Ah ( 1 ) is EQUIVALENT TO AI (OFrSFT(Ah)) 

Where the subscript I has been chosen such that 
ITsMax(Im), This provides an equivalence between 
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the start of raeh array ana some relative byte posi- 
tion within o n e of the arrays# namely the array AI, 

The actual eoulvalenclno would take Into account the 
size of an entry In a I . 


7.2.18.2 when tne compiler encounters an EQUIVA- 
LENCE statement the following actions will he taken! 

A symbol table entry will he located or constructed 
for each Item in the string# and the Eaulvalenee bit 
will be set (section 5, 2,1,1), 

An "Eaulvalenee block" for each set of eoulvalenced 
Items will be established. The format of the eaul- 
vslence olock Is defined In section 5,5. 


7.2.18.3 After the las* - declarative statement Is 
encountered# code will be oenerateo to reserve soace 
for all eoulvalenced variables. All equivalence 
chains will be resolved by means of th- equivalence 
blocks# using an algorithm similar to that described 
In Arden# Galler and Graham, "an ALGORITHM FOP EQUI- 
VALENCE DECLARATIONS", AC M C0*m., VOL *# NO, 7. 


7.2.19 Data statements DATA «l 701 /# Kd/02/# . . . 

Processing of this statement assumes that no con- 
tradictory typing of the variables In the statement 
will occuf afterwards. 

As with the DIMENSION and COMMON processors# the 
variables In pach list K are entered Into symbol 
table If they are not already there (references to 
array elements with fixed subscripts will cause ar- 
rays to be defined with all dimension s1zes*-l). In 
addition# a temporary list will be constructed con- 
sisting of pointers 1 n t c the symbol table# one for 
each list Item, 

The constant data following the slash will then be 
matcreo to the list Items and nrlalneO aocrooriate- 
lv. 
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7.2.20 DO U I«J,K,L 

Comoi 1 es as foil cws s 

*P.J jPJSm J 
SP0P2*I JPQP TO I 

Hi 

A "DO TASLt” entry is constructed uoon encountering 
the DO statement (see section 5,7), The "return 
Jumo M destination is the label generated following 
the bOV above. If there are any entries active (see 
section 5.7,1) in the DO table, it is searched after 
the code for each labelled statement is generated, 
hhen a match between statement label and terminal 
stateme-t label occurs, two possibilities exist? 

1. The cor resDondi ng DO table entry is not the 
last active entry in the table - in this case 
the 00 ' s are not properly nested, - 

2, The cornesDondinq DO table entry is the last 
active entry in the table - in this case the 
following code is generated? 


iEND00,L,I, K ,^L for normal DO looos 

or 

$FnDOP,L»I,k»$L for DO loons con- 

tai ni ng formal oar- 
amet er s 


7.2.21 IF 


7.2.21,1 Logical IP 

The logical expnession within the outer parentheses 
is evaluated and the result is passed to the QTS 
"loaical IF" routine. If the expression is "true" 
the conditional branch or statement is executed. If 
"false" the next FORTRAN statement is executed. 


7.2.21.2 A r i t hmet i c IF 

The expression within t k e outer parentheses is eva- 
luated and the result is oassed to the OTS "arith- 
metic IF" routine. It returns indirectly to one of 
the three locations following the calling sequence. 
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See section 3. 1.2. 2. 


7.2.22 READ, kPITE 

Object code top H Z A 0 s a*d wRIT^s is h a n d 1 e a in a u n - 
i t o r n nannep. ana is based o n t h e use o t an "ini- 
tialize" cal 1 » several reads op wpites to fansait 
list items to the OTS routines# and an "End" call 
when the list is deoleted (see section 3, 1.2. 4), 

The method to 1 * oenenating code ton a tvoical topmat* 
tec peaci is given as an example? 


READ C M »103)A,P,fX(I),I«J»K,L) 

A. u o o n encountering the fip 9 t night PaPenthesis# 
the conoil ep aenerates the i n i t i a 1 i zat i on calls 

$PSH, V 

$P$H, $ 1^0 
SINEI# 0,0 

B. It tne next item in the statement is not a lett 
papenthesis# the eompilep outs a nofnter to eac h 
list item into the pea d calling sequence# until a 
lett oaPenthesis op end ot statement is toundt 

$ P S hi » A 
$P$H, H 
|PSH ,2 
$ I OR 

C. when a lett oaPenthesis is encounrered the com- 
pilep 1 oo<s aheaa top the implied Do oars'eters# 
aenerates a label top the DO r e tum Jump destination 
( 3 f 0 J 1 2 in this example) and makes an entry in the 
DO table top an implied dn-looc, 

The CO Dpocessop is used to generate the leoo ini- 
tial zat i on? 


f ° . J 
SPOPlrl 

D. The list items ape then passed to the READ pou* 
tine as in papt H (except that a sgbscpirted item 
now aooeahs in the list) 
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$FJ?P! 2 S <CALL TO SUBSCRIPT RO.JTINF FQR X(I)> 

%psmri j push register stack 

SP, 1 
$ I OP 


E. NHen the CO control variables are encountered in 
t He list tNev are scanned ever until a riaHt oaren- 
tHesis is founa. The riqnt parenthesis triaaers a 
call to tHe f'C processor to generate loopino in- 
structions from information on too of tHe 00 table 
stack: 

$EN!DDf‘,L, I,*, SF 30 JI 2 

F. T h e 00 loop finally falls through for transmis- 
sien of tHe next list ite m » in this case there are 
no none item's so tHe compiler generates cede to ter- 
minate tne operation: 

S I OF 


7.2.23 DEFINF FILE a(m,l,j, v ) 

See section 7 . 1 . 3 . The generated code is: 

S 0 EFIL»a,m, 1 , v 

where a, " » 1 » and v are the an dresses of the orooen 
parameters . 


7.2.24 F I d D Cu'b) 

See section 7 . 1 . 3 . The generated code is: 


iPSb.u 
S P S M , b 
iFIfvD.iJfS 


7 . 2.25 IMPLICIT 

The co me ilen will maintain a table fro* which all 
Implicit definitions of variables are m^de (see sec- 
tion 5.6) . 

This routine will adjust entries in both tne impli- 
cit table and the symbol table according to the in- 
tent of the implicit statement. 



page 49 


PDP -11 FORTRAN, 13 B-JB 9 - 0 - 11-06 
Language 


7.2.26 9L0Ck DATA 

when this statement is encountered the compiler sets 
t He Bloc* Date switch* to he tested whenever an exe- 
cutable is encountered in the source orognam Can er- 
ror). 


7.2.27 Adjustable Arrays 

when aojustafcle arrays are encountered in T v P E , DI- 
MENSION or c 0 M M d N statements, the compiler will gen- 
erate code to initialize the array bv moyinn values 
oi t h e aoornpriate rara«eters into the object time 
AOB. The call is 0 f the torn? 

$ADJ,<ADn AOD c .>, <PAR. T\DEX>,< 1 ST 01 * 0 , < 2 ND 

riH>,<3R0 ni u > 


7.2.28 Arithmetic Statement Functions 

Arithmetic Statement Functions (ASF's) are compiled 
as standard functions exceot t K at the entry name is 
"ncm-.GLOSL." 

The entry na-e h a s entry tyre 01. 

Routine arqument(s) have entry type 0d and are de- 
signated oarameters as in subroutines or functions. 

Deletion of arguments consists of zeroing the name 
part of the symbol table entry. The soace is not 
reclaimed nor the entry unlinked - Rut no search 
will match the zero name. 

A variable length table on the stack maintains a 
table of eointers to the symbol table entries for 
the parameters. At the eng of the ASF compilation 
this allows going bec< and deleting argument names 
fr©m the sy"bol table. The top of the stack con- 
tains the number of arguments. The next M words are 
the arguments (LIFO). 

The structure of the compiled function is as 
f o 1 lows: 

STR.SFnnnn jBRANCh ABOUND TWE 

ROUTINE 

NAME: JSfi %4 , SPPLSH ^ROUTINE TO ENTFR POLISH 
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tcode for expression] 
SPQPRn 
REGISTERS 

» *2 

RTS *5 

JFpnpn { 


jLFAVFS VALUE ON STAC* 
;M0VE VALUE INTO 

jEXlT POLTSw 
; Ex IT FUNCTION 

; target for branch 


7 . 2.29 ENCODE# DECODE 

Object code for ENCODE end DECODE is hanaled identi- 
cally to READ and wRITfc.# except that three oarage- 
ters are ousneo and the routines called are * E N C D 
ana $DECD reseectivel v, (See section 3 , 1 , 2 . 4 ,) 




PAGE 51 


PDP-11 FORTRAN, 130-3&9-C01-06 
Language 


7.3 Object Time System Exceptions and Differences 
From A^SI FORTRAN. 


7.3.1 Li brarv 

The following FORTRAN library routines Rave been ad- 
ded to the ANSI list (see the user's manual for more 
detailed i nf ormat i on) j 

1. DATE - returns the current date. 

2 . TINE - returns the current time of day, 

3. SSRTCH - returns the contents of the switch 
regi ster , 

A, ran - random number generator function, 
b, RANDU - random number generator subroutine. 

6. SETFIL - modify default device table en- 
tries. 

7. POiJNp - dumn core between soecified limits. 
6. EXIT - terminate Drogram, 

9, 3ETERP - modify default error handling, 

IE, TSTERR - test if an error has occurred, 

11. LINK, RFTURN - overlay handling. 

12. RUN - load and execute another orogram. 


7.3.2 FORTRAN overlays 

As describea in the OTS soecification, 130-311-302, 

7.3.3 Random access I/O 

As described in the Object Time System SDecifica- 
tion, 133-31 1-002. 
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7.4 Code Generation Exannle 

The following is an example of a FORTRAN oropra^ 
listing whicR includes tRe assembly listing. This 
listing is not exactly like a normal orqgran listinq 
because the nornal cane Readings have been ne-oved 
to reduce confusion, and because descriDtive con- 
sents Rave been added to the assembly listinq to 
describe what is ooino on and why. 



C 

ASSEMBLY CODE EXAMPLE 

0001 


DIMENSION X(10),Y(10) 

0002 


CO-MMqn y 

0003 


EQUIVALENCE ( X , Y ) 

0004 


data a/i.3/,i,j/i,2/ 

0005 


ASF(G)*Q+1. 

0006 


0*1 . 

0007 


3*0+ 1 -A 

0008 


C*ASF(B) 

0009 

10 

XteSIN(C) 

0010 


X2*(A-(P**2-4,*A*C) )/(2.*A) 

0011 


WRITE (1, 103) A,P, (X(I) , T*3,B) 

0012 

100 

FORMAT (8F10.3) 

0013 


IF (A.EQ.l . 3 ) G 0 TO 13 

0014 


STOP 123 

0015 


END 


routines called; 

SIN 


SWITCHES a /Li 


BLOCK LENGTH 

MAIN. 235 (033632)* 

,%$S$. 23 (330353) 


sC ASSEMBLY C0HP EXAMPLE 


300030 • 

020300 004467 MAI‘J.! 
000304 300000G 

T 

t 


DIMENSION x ( 1 3 ) , Y ( 1 3 ) 
.TITLE main. 

FORTRAN V004A.35 
.CSECT 

• 3L0BL MAIN. 

JSR %4,SR0LSH 

• 3L0BI S 3 CLSH,SNAM 

$ MAM, 0,3, 3 ft 5 6 1 ,055743 

, GLCBL S3EQ 
COMMON X 

EQUIVALENCE (X,Y) 


; ENTER POLISH mode 


f SET UP TRACEBACK LINKAGE 
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l DATA a / 1 , i i / , i , j / 1 , 2 / 

■*00000' • CSECT . 5 X $ $ . 

000006)' X*. +0000-00 
00005*)' .*.+00005-* 


0000 1 6 ' 
000050 ' 
000000 i y 
■ 000050 '. 
000016 ' 


000016 

000000G 

ALLOCATION 


000022 ' A 
000022' . 

0000 2? 

■*40270 

00002b ' . 

000026 ' I 
000026' . 

000026 

000001 

000030 

000000 

00P032' . 
000032' J 

000032 ' . 

300032000002 ,*QRD 

000034 

'*00000 
-000036 ' . 


00.0036 ' 

000036 

5F0001 j 

* 

000036 

000000G 

300042 

004467 4SF 5 

000046 

000454 ' 

000050 

000462 ' 

0000 52 

000000G 

000054 

0 0 0 0 0 0 G 

000056 

000060 ' 

000060 

000205 

000062 

3 F 0 0 0 ? ; 

000362 

s 

000000G 


000066 

000462 ' 

000070 

000000G 

* 

000074 

100000G 

000100 

000474 ' 


• EVEN 
.CSECT 

.CSECT .sms*. 
«X+ 0000 P 3 
aX +000050 
.CSECT 

• GLOBE 3 TP 
STR, 3F0001 


*A 

. *J0PD 010200,000000 

34+000004 

= . 

* I 

.WORD 0*0001 
0 

*1+000004 

™ • 

*,I 

000002 

0 

* J+ 000 00 4 

.EVEN 

.CSECT 

ASF(Q? *0+1 . 

1TR.SF0WSJ2 

JSR %4,5P0LSH 

3 P 00 10 

SP0011 

.GLOBE sadr 
SADR 

.GLOBL IP0PR3 
SP0PS3 

.+2 

RTS %5 

0*1, 

5SEQ,00O0 '6 


S p 0 0 1 1 ' 

.GL08L 3 R O P 3 
SPQP3,D 
B*D+1-A 
SSEQ, 000007 
SP0012 


T ALLOCATE BLANK COMMON 

f SFT UP EQUIVALENCES 

J.JUMP around data 

JA MAS A VALUE OF 1.0 

Jl HAS A VALUE OF 1 

Jj HAS A VALUE OF 2 

;£ND OF DATA AREA 
{JUMP AROUND THE ASF 

jfnter polish mode 

J PUSH Q 
I PUSH 1 

f ADD 1 TO 0 

}POP THE RESULT 
JEXIT POLISH MODE 
; RETURN TO CALLER 

jTRACEBACK SEQUENCE 6 

; GET 1 

J STORE IT IN D 

jTRACEBACK SEQUENCE 7 
j GET 0 
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000102 

£300506 * 

SP0313 

J GET INTEGER 1 


000104 

000000G 

• GLOBL SIR 

SIR 

! CONVERT TO REAL 


000106 

300000G 

SADR 

{ADQ. 1 TO D 


000110 

000440 * 

SP0003 

{GET A 


000112 

300000G 

• GLOBL S3RR 

SSBR 

jvSURTRACT IT 

* 

3001 14 

000000G 

$PQP3» B 

{STORE RESULT IN 8 


330120 

1 

000000 G 

CsASFf B) 

SSEQ,000010 

jtraceback SEQUENCE 8 

* 

000124 

000126 • 

. + 2 

{EXIT POLISH MODE 


000126 

004567 

J SR %5 , ASF 

JCALL ASF 


000132 

000401 

BR ,+000004 

{WITH THE PARAMETER 


000134 

300524 * 

+ 3 



000136 

004467 

JSR %4,SP0l_SH 

JPE-ENTER POLISH MODE 


000142 

000000G 

.GLOBL $ P S H R 3 

SPSHR3 

? PUT RESULT ON STACK 


000144 

000000G 

$P0P3,C 

{ RESULT GOES TQ C 


000150 

S 13 

000000G, 13 i 

X1«SIN(C) 

JSEQ, 00031 1 

{TRACEBACK SEQUENCE 9 


000154 

000156 » 

.GLOBL SIN 

.+2 

{EXIT POLISH 


000156 

004567 

JSR %5,SIN 

{CALL SIN 


000162 

000401 

BR , +000004 



000164 

000166 

300536 « 

304467 

+ C 

JSR , %4,$P0LSH 

{RE-ENTER POLISH 


000172 

000000G 

SPSHR3 

{PUT THE RESULT 


000174 

000000G 

SP0P3 » X 1 

{IN XI 


000200 

I 

000000G 

X2s(A-(R**2-4,*A*C ) ) / (2 
SSEQ, 000012 

. * A ) 

{TRACEBACK SEQUENCE 10 


000204 

000440 • 

$P0003 

{PUSH A 


000206 

000516* 

$P00 1 4 

{PUSH B 


000210 

300546 * 

SP3320 

{PUSH 2 


000212 

000000G 

.GLOBL SPWRI 

SPwRI 

{SQUARE B 

* 

000214 

300556* 

$ P 0 0 2 1 

{PUSH 4 


000216 

000440 * 

i P 0 3 0 3 

{PUSH A 


000220 

000000G 

.GLOBL S M L R 

SMlR 

{MULTIPLY 4 , * A 

4 

000222 

000530 * 

SP0315 

{PUSH C 


000224 

000030G 

SML» 

{MULTIPLY IT 


000226 

0 0 0 0 0 3 G 

$SB« 

{SUBTRACT B**2 


000230 

000030G 

$SBR 

{SUBTRACT FROM A 


000232 

000570 * 

$ P 0 3 2 2 

{PUSH 2 


000234 

000440 » 

SP0303 

{PUSH A 


000236 

000030G 

$MLR 

{MULTIPLY 2 . * A 


000240 

000000G 

.GLOBL SDVR 
$DVR 

{DIVIDE THE TWO EXPRESSIONS 

o 

000242 

000030G 

SP0P3, X? 

{PUT THE RESULT IN X2 


{ 

WRITE (1,100>A,R, (X(I), 

T*3,8) 


000246 

000030G 

SSEQ, 000013 

{ TRACEBACK SEQUENCE 11 



• GLOBL SPSH 
S P S H , $ 1 0 0 '* 2 



000252 300000G 


ADDRESS OF UNIT NUMBER 
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000256 

000000G 

$PSH,$1P0 

f ADDRESS OF FORMAT 



. GLOBL 

SOUTFI 


000262 

000000G 

SOUTFI 


{INITIALIZE FORMATTED OUTPUT, ft, ft 

000270 

ft000ft0G 

$PSM, A 


; GET. ADDRESS OF A 

000274 

000000G 

SPSH, 6 


l GET ADDRESS OF B 

00030ft 

000000G 

$PSH, ft0ft0ft2 

J 2 PARS. TO BE OUTPUT 



. GLOBL 

SI OR 


000304 

000000G 

$ I OR 


; OUTPUT THE REAL PARAMETERS 

000306 

ft 0 0 6 ft 6 • 

$ P 3 ft 2 4 
.GLOBL 

SP0P2 

t PUSH 3 

000310 

000000G 

i POP2 , 

I 

f store IT in I 

000314 

SF0003: 




000314 

000446 » 

SP0004 

.GLOBL 

SS0S1 

•PUSH I 

000316 

000000G 

S3B31, 

$ A ft ft 0 1 

! COMPUTE SUBSCRIPT ADDRESS 



.GLOBL 

SPSHRl 


000322 

ft000ft0G 

SPSRR1 


J PUT I * TH ITEM ON STACK 

000324 

ft ft 0 0 ft 0 G 

$PSH,PBftftftl 

jOne parameter 

00033ft 

000000G 

i I OR 
.GLOBL 

semddo 

! DO REAL OUTPUT 

000332 

000000G 

SENDDO 

,$10002,1, 

SIftftPB, $Fft0P3 j TERM , LOOP 



.GLOBL 

SIOF 


000344 

00B000G 

SIOF 


Jl/O termination 


; 1 0ft 

FORMAT 

(8F10.3) 


000346 

ft00000G, 10ft! 

SSEQ, 000014 

jTRACEBACK SEQUENCE 12 

000352 

000000G 

STR. SF0004 

{SKIP AROUND FORMAT 

000356 

050 5100! 

.ASCII 

.EVEN 

(BF10.3) 

* ASCII FORMAT STRING 

000366 

$ f 0 ft 0 4 ; 





J 

IF (A. 

EG , 1 , 0 ) GO 

TO 1ft 

000366 

ft 0 0 0 ft 0 G 

SSEQ, ftftP0 1 5 

JTR.ACEBACK SEQUFNCE 13 

000372 

000440 » 

$P0ft03 


J PUSH A 

000374 

000462 ' 

SPftftl 1 
.GLOBL 

SCPR 

! PUSH 1.0 

000376 

000000G 

SCHR 

.GLOBL 

SEQ 

f COMP ARE THE TWO 

000400 

ft 0 ft 0 ft 0 G 

SE3 

.GLOBL 

strtst 

! 00 EQUALITY CHECK 

000402 

000000G 

strtst 


! SKIP 

000404 

000412 ' 

$ F 0 ft ft 5 


JIF FALSE 

000406 

ft 0000 0 G 

STR 


J GO TO STATEMENT 10 

00041ft 

000150 ' 

.10 



000412 

SF0305I 





> 

STOP 123 


000412 

ft 0 ft 0 ft 0 G 

SSEQ, 000016 

fTPACEBACK SEQUENCE 14 



.GLOBL 

SSTOR 


000416 

ft 0 00 ft 0 G 

SSTOP 


jTEPMINATE program 

000420 

061 

.ASCII 

123 


000423 

000 

.BYTE 

.EVEN 

ft 



a 

» 

E'JD 
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000424 

000000 • 

$ A 3 0 0 1 : 

♦ X 


; adr 

FOR ARRAY 

’ X 


000426 

354034 


354304 






000430 

300012 


030312 






000432 

300030 ' 

SA030?. 

♦ Y 


; ADR i 

FOP ARRAY 

1 Y 


000434 

354004 


354304 






000436 

003012 


030412 






000440 

312730 

$P0003 : 

30V 

A + 4 , X 0 

{PUSH 

ROUTINE 

FOR 

A 

000444 

300467 


HP 

5 F 0 3 0 6 





000446 

316746 

$ P 3 0 0 4 ; 

NOV 

I » - ( %6 ) 

jPUSH 

ROUTINE 

FOR 

I 

000452 

303134 


JMp 

* CX4 ) + 





000454 

016500 

S P 3 3 1 0 : 

NOV 

030302 (%5) , X0 

} PUSH 

ASF PARAMETER 

000460 

300457 


BP 

$F0306»4 





000462 

312730 

$ P 0 3 1 1 l 

NOV 

$1*3001+4, %3 

: push 

ROUTINE 

FOR 

1.0 

000466 

300456 


SR 

$ F 0 0 0 6 





000470 

343200 

$R4?01 : 

040203 






000472 

300000 


030403 






000474 

012700 

$ P 3 3 1 2 : 

NOV 

0+4, %0 

: push 

ROUTINE 

FOR 

D 

000500 

300451 


BP 

SF0306 





000502 

000000 

0: 

0,0 






000506 

312746 

iP03l3{ 

NOV 

30303 1 , - ( %6 ) 

; push 

ROUTINE 

FOR 

1 

000512 

300134 


JMP 

PCX4J + 





000514 

000001 

S 13002 ; 

030301 






000516 

012700 

SP0314: 

MOV 

3+4, %0 

: push 

ROUTINE 

FOR 

B 

000522 

300440 


BP 

$ F P 3 3 6 





000524 

000000 

8: 

0,0 






000530 

312700 

$P00 1 5 j 

NOV 

C+4,%0 

' push 

routine 

FOR 

C 

000534 

300433 


BP 

SF0306 





000536 

300030 

C: 

4,0 






000542 

300000 

xl s 

0,0 






000546 

312746 

$P03 20: 

MOV 

303032, -(%6) 

J PUSH 

ROUTINE 

FOR 

2 

000552 

303134 


JMP 

»(14) + 





000554 

300032 

1 13303 : 

00030? 






000556 

312730 

SP0321 : 

NOV 

$R0003+4,X3 

: push 

ROUTINE 

FOR 

4 

000562 

300420 


BP 

SF0306 





000564 

340600 

$ R 0 3 0 3 ! 

040603 






000566 

300000 


030303 






000570 

312730 

SP0322! 

NOV 

$ R 0 0 3 5 + 4 , % 3 

J P U S H 

routine 

FOR 

2 

300574 

300413 


BP 

SF0306 





400576 

340430 

SR0005: 

040403 






000600 

300000 


040303 






000602 

000000 

X2: 

0,0 






000606 

012746 

3>P0 324s 

NOV 

000033, -(%6) 

; push 

ROUTINE 

FOR 

3 

000612 

300134 


JMP 

a(%4)+ 





300614 

300003 

$10005: 

030303 






000616 

000010 

$14006: 

030310 






000620 

362700 


ADD 

4 , X 0 

J PUSH 

SERVICE 

ROUTINE 

000624 

314046 

SF0206: 

MOV 

-(*0) ,-(X6) 





330626 

314046 


MOV 

-(X3) ,-(X6) 





000633 

000134 


JNP 

P ( X 4 ) + 








.GLOBL 

SWRTTE 

f I/O 







.GLOBL 

$DCO 

JLINK4GE 






.GLOBL 

$ 0 T S V 

>GLOBALS 




300030 ' 


.END 

MAIN. 
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A * 

000022R 

ASF 

030042R 

B 000524R 

c 

000536R 

D 

030502R 

I a 000026R 

J ■ 

000032R 

MAIN. 

030000RG 

SIN a 000000 G 

X ■ 

000000R 

002 XI 

000542R 

X2 000602R 

Y « 

000000R 

002 SADR a 

000000 G 

SA0001 000424R 

IA0002 

000432R 

SCMR a 

0^0000 G 

SDCO a 000000 G 

SDVR ■ 

000000 G 

SENDDOa 

000000 G 

$EQ a 000000 G 

SF0001 

000036R 

SF0002 

000062R 

SF0003 000314R 

SF0004 

000366R 

SF0005 

0004 1 2r 

SF0006 000624R 

SIOF » 

000000 G 

SIOR * 

000000 R 

SIR a 000000 G 

$10002 

000514R 

$ 10003 

000554R 

$10005 000614R 

$10006 

0006 1 6R 

SMLR » 

000000 G 

$NAM a 000000 G 

$0TSV > 

000000 G 

SOUTFIa 

000000 G 

SPOLSHa 000000 G 

$P0PR3a 

000000 G 

SP0P2 ■ 

000000 G 

SP0P3 a 000000 G 

$PSH a 

000000 G 

SPSHRla 

000000 G 

$PSHR3a 000000 G 

$PWRI a 

000000 G 

SP0003 

000440R 

SP0004 000446R 

$P00 1 0 

000454R 

SP0011 

000462R 

SP0012 000474R 

$P0013 

000506R 

SP0014 

0005 1 6r 

SP0015 000530R 

$P0020 

000546R 

SP0021 

000556R 

SP0022 000570R 

$P0024 

000606R 

SR0001 

000470R 

SR0003 000564R 

$R0005 

000576R 

SSBR a 

000000 G 

SSBSl a 030000 G 

$SEQ a 

000000 G 

S3T0P a 

000000 G 

STR a 000000 G 

STRTSTa 

000000 G 

SWRITEa 

000000 G 

S100 000356R 

>«• 

000150R 

f)MP Tl (TO 

.100 

000346R 








PHASE 

USED FREE 



DECLARATIVES 00366 17853 



executables 

00620 17599 



ASSEMBLY 

01114 19968 
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8.0 command language and structure 

The command Input to the compiler happens as 
f ol 1 ews: 

Upon typing the command RU FORTRN, the compiler la 
loaded and the compiler will type Its name followed 
bv two spaces followed by the compiler version 
number. On the next line a # Is typed to signify 
that FORTRAN Is ready to accept command Input. 

The command Input typed must be of the form! 

OBJECT-FILE, LIST-FILE<INRUT-FILE 

The object file Is the main compiler output file* 
The format of the file may be of one of two differ- 
ent types# If the /AS switch Is specified as part 
of the file specification, the output will be an AS- 
CII file suitable for assembly by the assembler# If 
the switch Is not specified, the cutout will be ob- 
ject output suitable for linking# The default ex- 
tension Is .OBJ, unless the /AS switch Is specified 
which has a .PAL default extension. If more than 
one FORTRAN routine was In the Input file, the ob- 
ject file will contain an eguivalent number of ob- 
ject routines and must be linked using the linker's 
/CC switch. Note that If /AS Is specified, only the 
first FORTRAN souree routine In the file will be 
compiled, any additional routines will be Ignored# 
This Is done because the assembler will not take 
concatenated sources as Input. 

The list file Is used for the source listing, object 
listing, symbol table listing, and error diagnostic# 
If any. The listing content may be made as compre- 
hensive as desired bv use of the /LI swlteh (12K 
compiler only). The switch should be specified with 
a value from 0 to 3, Specifying /Lll0 will give the 
minimal listing which consists only of any error di- 
agnostics which occur and the block descriptor (sec- 
tion 4.11) which describes the program and common 
block sizes. The /LIll switch Is the default op- 
tion, This supplies a source listing with error di- 
agnostics and the block descriptor# The /LIi2 
switch 1 s used 1 f the assembly listing Is desired In 
addition. Specifying /LI *3 gives a listing contain- 
ing everything above plus the complete assembly sym- 
bol table 1 1 st 1 ng. 

The Input file may contain one or more FORTRAN pro- 
grams which are to be compiled# Note that If the 
/AS switch Is set on the object file (or if the com- 
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pller 1 s the 8K version) that ell proarams after the 
first will be Ignored. Under normal cl reumstanees, 
however, all routines In the file will be compiled. 
See section 3.2,1 for a more complete description of 
switch handl 1 ng. 

Upon the completion of compiling a file. FORTRAN 
will. If there are anv errors, type the error count, 
and then return to the command handler and again 
tvpe the # sign to signify that It Is ready to start 
another compile. 

When using the /AS and /LI switches. It Is neeessary 
to specify the switch each time the user types In a 
command, de warned though, that all Input switches, 
once set, stay set until the compiler Is either REs- 
tarted or reloaded. This occurs In this fashion be- 
cause It Is assumed that the user will probably com- 
pile all programs In a given run with the same code 
generation features selected. 
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9.0 OPERATING PROCEDURES 

This is described In detail In the "Getting on the 
Air with FORTRAN’* document. 
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10.0 PHYSICAL DESCRIPTION AND ORGANIZATION 

10.1 Comoller module descriptions 

ASCI - This routine Is the control routine for CALL 
statements and arithmetic assignment statements. 
If It Is a CALL statement# entrv Is made at lo- 
cation CALL, The first thing done Is to gener- 
ate the label, If any Is needed. Then the rou- 
tine name Is obtained via a call to GET, Once 
the routine name Is obtained and checked for le- 
gality, a call Is made to FUN000 (In EVALU) and 
the remainder of the statement Is evaluated as 
If It were a function call (which It Is, sort 
of), Uoon return from this evaluation, EXPGEN 
(also In EVALU) Is called to generate the actual 
cooe from the Polish string which FUN000 olaced 
on the stack. When EXpGEN Is finished, the 
stack Is cleared, end of line termination Is 
checked, and a return Is made to the calling 
rout 1 ne. 

On the other hand, If an entry Is made to ASGN, 
It Is assumed that an assignment statement Is In 
the offing. This routine first cHeeks for the 
existence of a left part terminated by a "» H 
sign. If this exists SUBEXP (In EVALU) Is 
called to convert the right Dart of the expres- 
sion to Polish, Note that If It Is ever desired 
to allow multiple assignments, the code for the 
preliminary part should be olaced Immediately 
preceding this call. Upon return from this rou- 
tine, EXPGEN Is called to generate the actual 
Polish code Itself and then the stack Is cleared 
as usual. If at this point, the line terminator 
Is zero, the processor resets the line pointer 
to the start and proceeds to generate the neces- 
sary code for the left part of the expression, 
making special exceptions of course for sub- 
scripted references. After the left oart Is 
complete, a normal exit Is taken. Note that the 
assignment processor never takes the nonrecogni- 
tion exit that the other Processors are allowed 
to use since If It Isn’t an assignment, It can't 
be anything else! 

ASC2 • This routine Is used by ASCI and DO, It Is 
used only to generate the common POP code which 
Is reoulred in the simple ease assignment and 
the DO setup. This routine does all necessary 
checking for parameter forms In subroutines. 



PAGE 62 


PDP-11 FORTRAN, 130-309-001-06 

Physical Description and Organization 


ASF - TMa routine handles all Arithmetic Statement 
Functions, Upon completion of other declara- 
tives* this routine will be called and will re- 
tain control until all ASF's have been pro- 
cessed, When ASF Is entered, the first function 
It performs Is to determine the validity of the 
line as an ASF, In other words, does the entity 
on the !e*t side of the * sign eons 1 st of a pre- 
viously undeclared name with one or more Parame- 
ters, If this criterion Is met, the ASF pro- 
cessing is Invoked, The routine first sets up 
dummy parameters for the use of the function 
which will not conflict with later usages In the 
compiler. Once all arguments have been collect- 
ed, the expression is comoiled in the same form 
as a FORTRAN compiled function, except that when 
it is referenced In the program, no ,GL0Bl will 
be generated, thus making it a strictly local 
function. The normal expression handling rou- 
tines SUBEXP and EXPGEN are used as part of this 
procedure. When the function is complete, the 
temporary entries In the symbol table are delet- 
ed to remove any possibility of later conflicts, 

COMMON - Handles the declaratives COMMON and EQUIVA- 
LENCE, It also contains the subroutine ALOCAT 
which Is called after the last declarative to 
allocate any declared variables, ete. When COM- 
MON is entered, the first action which oecurs Is 
to see if the data allocations have alreedv oc- 
curred, If so, the statement has been placed 
ineoreetlv and the process Is Immediately termi- 
nated with a diagnostic. Otherwise, the Proces- 
sor proceeds to check for an (optional) block 
name followed by one or more variable or array 
names. Note that little conflict cheeking Is 
done here and won't happen until the allocation 
itself is attempted. For each entity found, an 
entry is made In the COMmON/EQUIVALENCE table 
(see section 5), After each terminator a 

check is made for a new block name* and if found 
this whole procedure ia started over. 
Termination occurs when the end of line termina- 
tor Is encountered. 

Another routine In this module Is ALOCOM which 
is called by ALOCAT to do the aetual code gener- 
ation assoc 1 at ed with the common dec! erst Ions, 
Most conf 1 1 ct situations will be caught here 
which coulo not be caught bv the COMMON proces- 
sor itsel f , 
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The EQUIVALENCE processor, when altered, tries 
to collect as many discrete groups of Equiva- 
lences as possible and slaees them In the 
COMMON/EQUIVALENCE table. The ALOCAT routine 
can be considered to be Dart of this orocess and 
Is called after the last nor-exeeut abl e state- 
ment has been encountered. It flags any EQUIVA- 
LENCE 1 neons 1 st enc 1 es , generates the necessary 
equates, end ealls alOCOm, 

CORET - The CONTINUE and RETURN statements are pro- 
cessed here, Slnee CONTINUE Is a null ooera- 
1 1 on, all It does Is check for a line terminator 
and 1 mmeol atel y exit! The RETURN processor 
checks to see whether the statement was Issued 
from a main program, subprogram, or function. 
If a main program, a diagnostic Is Issued, If a 
subroutine, a SRET Is generated. If a function, 
the necessary pop code Is generated followed bv 
the SRET, 

DATA - This routine processes DATA statements and 
generates the required code. When DATA Is en- 
tered, a call to ALOCAT Is immediately made be- 
cause no data allocations can occur until all 
other declared allocations have been made. Then 
the data name list is scanned until a "/" Is en- 
countered, This oives the compiler two string 
pointers to work with, one to point to the vari- 
able names and the other to point to the value 
list which should m 8 tch the names in charac- 
teristics. As each variable Is encountered, the 
cor respondi ng data value Is assigned to it In 
the object code. There are several cases whieh 
are checked while the allocation Is occurring. 
These are BLOCK DATA, previously allocated 
non-COdMOH, yet to be allocated non-COMMON, 
Note that in BLOCK DATA that only Named Common 
can be initialized and that its allocation has 
already occurred in ALOCOM, The processing of 
the statement continues as long as there is at 
least a comma after the last encountered vari- 
able, a comma after the last encountered con- 
stant, a non-zero repeat count for a variable 
(arrav), or a non-zero reoeat count for a con- 
stant. All standard forms are allowed as data 
values, includina those oreceded bv a unarv 
minus. 

DECLAR - This is the syntax recognizer for declara- 
tive statements. Upon finding a form it cannot 
recognize, it calls ASF and then Jumps to EVE- 
CUT, This routine is part of the main control 
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Iood of the compiler, It calls the I/O routine* 
to get a line and then dlsoatches to the prooer 
statement handler vie a JSR PC,xxx. Each 
handler when entered# can assume that R1 Is po- 
inting to the correct position to begin Its re- 
cognition scan (for n©st statements this Is Im- 
mediately following the verb). Faeh processor 
is# In oeneral# responsible for the eomolete 
processlna of the input line. Return from the 
handler Is as follows! A normal return will eome 
back with an *TS PC with the V-bit of the status 
word clear. A neturn with the V-blt set may on- 
ly occur if the line in auestlon could not be of 
the assumed tvoe. 

DEFINE - DEFINE FILE statements are processed here. 
The form DEFINE FILF A(M,L#U#V) is directly con- 
verted to a call to the OTs routine SDEFIL with 
the eoulvalent Parameters, 

DO - This routine does the DO statement Processing 
and places the reauired entries In the 00 table. 
All parameters are checked for having the prooer 
character 1 st i cs of sim D 1e Integer variables or 
constants as required. Then ASC2 Is called to 
produce t h e necessary initialization code to set 
uo the loop. 

DOFIN - This routine is called whenever a labelled 
statement is completed to scan for possible DO 
t erm 1 nat i ons . It is also used by IOSTMT for Im- 
plied DO handling in I/O statements. When 
called it searches the no table for statement 
matches which may be either normal statement 
numbers as in the case of a DO termination or 
"special" form labels which are used as dummy 
labels in implied DO situations. In either case 
when a match is encountered# an SEN0DO or SENDDP 
is generated depending on whether Parameters are 
being used in the DO looo# the more efficient 
form being that which does not use parameters. 
After generating the reouired code# the DO entry 
which was completed is removed from the table, 

ELOC - This is a dummy routine which is used to mark 
the end of an overlay in the compiler. It In 
combination with one of the header blocks estab- 
lishes the range of the particular overlay In 
auest i on . 

ENDPPO - This routine handles all of the processing 
required upon completion of a compile. It gen- 
erates the various arrays# variables# etc. used 
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by the orogram which hart not been previously set 
UP by DATA, COMMON, or EQUIVALENCE. it also 
generates the .GLOBL references which are re- 
aulred by the OTS tor proper I/O linkages. 

ENDSTM - This Is the END and EnDFILE statement reco- 
glnlzer. If an FnDFILE Is found, routine MSSIO 
Is called. If an end Is found, EmDPRO Is called 
and the overlay stack Is restored, 

ERRLOC - Logs the errors occurHno during a state- 
ment. Up to 10 errors will be stored In the er- 
ror table for processing at the completion of 
the statement. Note that a soeclal case check 
is done for error 43 which Is the error associ- 
ated with COMMON /EQUIVALENCE table overflow. If 
this error should be looped, a flag Is set to 
inhibit any attempt at generating the table 
structures usinq ALOCAT and/or AloCOM since ca- 
tastrophic errors could occur with the tables 
Incomplete as they will be in such case, 

ERRPRT - This routine is called at the completion of 
any statement having errors. It prints the di- 
agnostic numbers and diagnostic text on the 
source and object devices as soeeified in the 
table created bv FR&LOC. It obtains the diag- 
nostic text from the ♦ i 1 e FORCOM.dGn. The diag- 
nostic number defines a character Position with- 
in the file where tne proper text -ay be found, 
an d the prooer 64 characters worth of informa- 
tion are extracted therefrom. Note that this 
routine assumes that at least 256 words of stack 
are available for temporary buffer usage while 
it is printing the diagnostic in guestion. Once 
all diagnostics in the list have been printed, 
the stack is cleared and the compilation is per- 
mitted to resume. 

EVALU - Contains two routines. The first SUBEXP, 
takes an ASCII expression and converts It Into 
an Internal PDLIS W string. This Polish string 
Is stored on the stack and Is modified as re- 
oulred as the expression In auestlon Is evaluat- 
ed (the structure of Individual Items In this 
stack is described in section 5,9), Upon com- 
pletion of the parse, SuBEXP returns with the 
complete expression form converted to POLISH 
mode and stored cn the stack with a zero termi- 
nator, All operations have been defined to cor- 
respond to accepted FORTRAN usage. Note that 
this is the routine where the mixed mode conver- 
sions are defined and inserted Into the strlnd 
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of ©Derations, The second routine, EXPGEN, 
takes the Internal POLISH string and uses It to 
generate code. All actual assembler labels and 
soeclal flags are assignee during this phase of 
evaluation. Minimal error chectclnq Is done 
since the bulk of the error handling Is done bv 
SUBEXP. When EXPGEN Is finished, a return Is 
maoe to the calling routine, Re amply warned 
that the calling routine Is held totally respon- 
sible for cleaning up the stack after EXPGEN and 
SUBEXP have messed It up. 

EXECUT - This Is the executable statement syntax re* 
cognlzer. The Job of this routine Is to recog- 
nize and dispatch to all forms of executable 
statements (FORMATS Included), Note that when 
this routine Is first entered, care must be tak* 
en to not Irrevocably divorce the processor from 
the non-executables since one of the reasons for 
entry m a y be only a badly typed non-executable 
statement. Thus, If a statement is found want- 
ing at this level and the EXEC flag has not vet 
been set, It Is necessary to Issue the normal 
diagnostic and then return to the non-exeeut abl e 
processor. If EXEC Is set, though* the state- 
ment Is discarded upon non-recognl t Ion and the 
next statement read and processed, 

EXTERN - EXTERNAL statement processor. This proces- 
sor takes the list of names supplied after the 
EXTERNAL declaration and sets them as externally 
defined In the symbol table. If the symbol Is 
not a formal parameter, the name Is also speci- 
fied In a .GLOBL In the assembler output. 
Errors are given for names which cannot be used 
as external, like local variables, function 
names which have al ready been declared, etc, 

FORMAT - This routine generates the ASCII strings 
for FORMAT statements. This processor makes no 
attempt to do syntax checking of the majority of 
the FORMAT. It Is only caoable of checking 
nesting correctness and Hollerith counts. The 
only function of note that Is out of the ordina- 
ry Is that flags are set for each conversion 

type which is used 1 n the FORMAT . This Is done 

so the routine ENDPRO may generate the proper 

global s for 1 oad 1 no the desired portions of the 
OTS I/O processors. 

FUNNAH - This routine# when called by SUBEXP, cheeks 
for soeclal type reoulrements for function 
calls. For example, when called with the name 
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DABS, it will flag tha na^e as double precision, 

GENOVL - This routine is used to output a compiler 
overlay to the disk overlay file in image form, 
bhen this routine is used in the overlay 0 bu- 
ilder# it also generates the correct lenath 
overlay file. This routine is used only for 
overlay building* not for the normal comoiler 
operation. It# as well as STRTUP can be consi- 
dered to be only temporary routines which are 
used to get the show on the air, 

GOTO - All forms of GOTO statements, as well as 
STOP# PAUSE, and ASSIGN, are handled here. The 
GOTO Processor does all necessary syntax check- 
ing and then generates th e necessary POLISH ops 
to handle Unconditional GqTO's, Computed, and 
Assigned GOTO's as well. Note that when a vari- 
able is used in an assigned form, it must have 
been previously used in an ASSIGN statement. 

The ASSIGN processor checks the statement syntax 
and then flans the variable specified as having 
been blessed by an ASSIGN thus making the As- 
signed GOTO an eligible receiver for the oartic- 
ul ar vari afcl e. 

The STOP and PAUSE statements are processed 
identically and expect only a Hex or Octal con- 
stant as a parameter, 

HDR00 - 8K overlay 0 header block. The discussion 
here also applies without change to the routines 
HDR01 - HDR04 as mentioned below. The purpose 
of these headers is to Preserve sufficient in- 
formation to allow the overlay handler to load 
and execute a proper routine in an overlay. 
Information is also present which is used only 
at the overlay build time. The various items in 
the headers consist of a descriptor list which 
has the addresses of all of the entry points in 
the overlay and a byte table describing the 
overlay number# entry location and return char- 
acteristics of the entry it aescribes. The re- 
turn characteristic# in short# specifies whether 
the routine described may be called with a JSR. 
If a JSR call is allowed# the subroutine called 
MUST return normally with an PTS otherwise the 
overlay handler's internal table will get fouled 
up. The last part of the routine consists of a 
series of dummy entries which correspond to the 
byte table and create the proper linkages for 
the calling routine. Note esoec i al 1 y- t hat the 
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order of the dummy entries is exactly the re- 
verse of the ohysical order of the byte table, 

HDR01 - 8K overlay 1 header block, 

HDR02 - 8K overlay 2 header block, 

HDR03 - 8* overlay 3 header block, 

HDR04 - 8K overlay 4 header block, 

HDRGEN - This routine generates the start up header 
information in the assembler output file, 

HEAO00 - 12« overlay 0 header block. The informa- 
tion in this and the three following blocks is 

organized similarly to that described by HDR00 
exceot that the exact number and kind of entries 
are set uo for the 12K structures. All of the 
above description is accurate in this case, 

HEAD01 - 12K overlay 1 header block, 

HEAD02 - 12k overlay 2 header block, 

HEAD03 - 12K overlay 3 header block, 

IF - Ail forms of IF statements are processed here, 
bhen IF gains control, it acts essentially as a 
sub-orocessor within the compiler. This is done 
because in the case of Logical IF forms* other 
statements may be used as part of the IF state- 
ment itself. Because of this* the processor is 
allowed to call most other statement processors 
as if it was the normal syntax scanner itself. 
This specialized control m 0 de is only invoked in 
the case of Logical forms. Normal arithmetic 
forms expect the standard list of statement la- 
bels following the ")" in the statement, IF re- 
guires both SUBEXP and EXPGEN whieh it uses to 
evaluate the expression. Arithmetic forms will 
call the expression handler only once while log- 
ical forms reouire it twice, 

IMPLIC - The IMPLICIT statement processor. This 
processor resets the type definition table to 
reflect the arguments specified to the state- 
ment, It is also reouired to scan the symbol 
table which already exists* and re-tyoe any 
items in it. Since the IMPLICIT statement must 
precede all statements exceot FUNCTION or SU- 
BROUTINE statements* the only retyping necessary 
will be done on formal Parameters which have 
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statements themselves. 

INIT - This routine Is used to Initialize a compile. 
It orlnts the heading, accepts the command In- 
put, presets the data area Initializes the dev- 
ices ano then Jumps to DECLAP, After the END 
statement Is processed. It outputs the core sum- 
mary and switch summary and then re- 1 n 1 t 1 al 1 zes 
the como 1 1 er . 

IOPACK - Handles the compiler I/O Interface to the 
monitor. This does all the dog wo rk Involved In 
continuation lines, Input buffering while check- 
ing continuations, comment cards are bypassed, 
ana the other tasks associated with Input. For 
output It Is used to produce the source and ob- 
ject listings as well as Output the object file 
If any. The 12K version also has a routine 
which counts lines to place fancy headings on 
every page of listed output. The strings of 
characters fed to the routine for assembler In- 
put are blocked and output when a buffer load of 
them is obtained. In other words, this routine 
does all the good things that an I/O processor 
would oe expected to handle. 

IOSTMT - This routine processes all I/O statements 
except FORMAT, STOP, and PAUSE. This routine Is 
broken down Into three parts, that which 
processes the parent hes 1 zed cart of the state- 
ment (as well as the special cases for READ and 
PRINT), that which processes simple I/O lists, 
and that which processes Do Implied lists. The 
DO list processor Is called from the simple list 
processor whenever a left parenthesis Is encoun- 
tered In the list. The DO list Processor then 
checks to see If the section of the statement 
under scan can Possibly be an Implied DO, If It 
cannot, then a return is made to the simple list 
processor defining the Parenthesis as a simple 
delimiting parenthesis. If it is an implied DO 
then the whole section Is processed at this po- 
int. Note that the Implied DO processor calls 
the simple list processor if necessary to pro- 
cess embedded simple lists Inside an Implied DO. 

MACFTN - restricted version of the MACRO assembler 
which 1 s used to assemble the compiler output In 
the 12K compiler. If It Is desired to change 
the class of output that the compiler generates, 
It will be necessary to update the assembler and 
its symbol table (RST) to match any new Items 
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which are required, 

MSS 10 - The REWIND, BACKSPACE# and ENDFILE state- 
ments are processed here. The Processinq for 
all three is identical except as detailed in 
sections 7,2, 11, 7.2,12, and 7,2,13, 

OUTSL - This outputs a statement label to the assem- 
bler output file, 

OVLAY • This routine is the overlay controller for 
the compiler. It uses the various header bloeks 
for overlay transfer addresses, etc. The con- 
troller uses the various entries in the headers 
to determine the overlay to be called, the loca- 
tion in the overlay to be entered, and whether 
the call is a JMp form which is non-returning, 
or a JSR form which will return to the calling 
overlay. If a returning call is used, the re- 
turn MUST be taken or else a compiler failure 
will eventually occur. This will occur because 
the controller saves information on an internal 
list to determine where the return must be made. 
If the return is not made, the table will even- 
tually fill, A side note concerns the placement 
of temporary variables. No temporaries should 
be placed in an overlay which may call using the 
returning call. If a temporary should violate 
this rule, it is guaranteed not to have the same 
information after the call that it had before, 
since the compiler makes no attempt to save the 
old core image. It instead brings in an entire- 
ly new cooy from the overlay file, and Justly 
assumes that the new copy is identical to the 
one previously destroyed, 

PATCH - this routine consists only of 100 decimal 
bytes of space which may be used for a patching 
area, 

PST * symbol table used by MaCFTN. As described 
under MACFTN,. this routine should be changed on- 
ly if changes are made to the compiler output 
which requires op-codes on operations not cur- 
rently required by the compiler, 

RDCI - This is a conversion routine for converting 
ASCII to real or double precision. It is used 
only by SYMTAB, This routine is J dent i cal to. 
the OTS routine of the same function. This is 
done to assure compatibility in the way numbers 
are converted at compile and run time. 
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SPCLST - This routine has the DIMENSION and TYPE 
processors. It also contains various subrou- 
tines used by the other declaratives, 

STRTUP ” This is the temporary cart of the compiler 
start up code. It initializes the overlay 
handler and then Jumps to INIT. 

SUBFUN - This is the processor for SUBROUTINE and 
FUNCTION statements. This routine has the main 
function of getting the routine name and gener- 
ating object code to specify this name. It also 
places in the symbol table any foomal parameters 
whieh are declared in the statement. The FUNC- 
TION processor also has a special submode used 
for tvpino the function name itself, 

SYMBOL - This is a dummv routine, used only in the 
8K compiler which has all the bit assignments 
described at the beginning of SYMTAR, This al- 
lows SYmTAB to be in only one overlay, WARNING 
- any changes made in the assignments in SYMTAB 
must be reflected identically in this routine, 
since its only purpose is to substitute for SYM- 
TAB in the various overlavs not containing the 
symbol table handler, 

SYMTAB - Is the overall symbol table handler for the 
compiler. In the 12K compiler it is permanently 
resident, in the SK compiler it is a separate 
overlay. It consists of several sections. The 
first allows one to look up a symbol according 
to its name (ASCII string). This type of lookup 
is generally done only on the first occurence of 
the particular variable or constant on the line, 
When this lookup is made, the attributes of the 
variable are returned to the caller. These are 
the type, class (constant, variable, array, or 
function), and serial number. The serial number 
is a 12 bit value which allows the secondary 
part of the symbol table handler to access an 
entry without a complicated search. The majori- 
ty of references within the comoiier after the 
first are done using the serial number of an en- 
try rather than the name. This is expecially 
evident in the express i on analyzer, which may 
need to scan a string several times. The other 
sections involve subsidiary routines used bv the 
two main lookup routines to perform routine ma- 
intenance duties, 

TABLES - This contains all of the impure area for 
the compiler. All changeable tables should be 
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placed here. No code should be placed here. 

UTILTY - This Is a package of miscellaneous utility 
routines used by the eonpller. 
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11.0 functional DESCRIPTION And operation 

11.1 Global Flow of Control 

The overall operation of the Compiler can be des- 
c r 1 bed as follows; 

After having built the compiler and Its overlays 
(see section 13,0) the svstem consists of the files 
FORTRN, FORTRN.OVR, and FORCOH.OGN, The first Is 
the compiler proper, the second Is the overlay file, 
and the last Is the dlaanostlc text file, 

when a RJ FORTRN command Is given, the compiler main 
program is loaded and execution starts at the entry 
point of routine STRTUP, This routine determines 
the machine size, determines If the diagnostic file 
Is Present, and then finds the absolute disk address 
of each overlay In the overlay file. Upon comple- 
tion a Jump to location START In routine INIT Is 
taken. Note that STRTUP Is a once onlv routine and 
Is overlayed by the compiler symbol table, 

Uoon entering routine INIT, the keyboard is INITed 
end the program name Is typed followed tv a “ sign. 
The user then types a command string having the for- 
mat as required by the standards for command input, 
when the command has been typed, each file as speci- 
fied is QPENed and made ready for use. If either of 
the two outout files already exists, a DELETE fol- 
lowed by a reopen is done. 

At this point. If the assembly output has not been 
reauested with the /AS switch, the file FORTRN, TMP 
is opened for outout. This file Is used to retain 
the compiler output for the automatic assembly Pass, 
In the 8K compiler, it is not possible to oet this 
interface, and it operates as if the /AS switch is 
always specified. 

After completion of these tasks the Implicit table 
is set up to the default values, setting letters I-N 
to integer and the rest of the alphabet to real. 
The expendable entries in TaRLFS are cleared. At 
this point, the compiler is now completely initial- 
ized and ready to compile a program. 

The routine DFCIAR is now entered thpough location 
SCANNR, DECLAR is used to recognize the verbs of 
all declarative statements. As each declarative is 
recognized, a jump is made to the cor resoondi no 
handler. If the respective handler cannot handle 
the input text as required (e.g. - C0 Mmqn« 1) it 
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will return to the recognizer with the V (overflow) 
bit set, A return to the recognizer with the V bit 
set will only be made If the statement might be al- 
lowed as another tyoe of statement. It would be fu- 
tile to return In this manner from the equivalence 
processor because the word EQUIVALENCE has already 
been found and there Is no other form which could 
start with that Immense name, 

A return to the recognizer without the V bit set Im- 
plies that the statement was processed# so the re- 
cognizer will read another Inout line and transfer 
as required. 

When the V bit return Is ultimately taken (as It 
well must) the recognizer then calls the ASF proces- 
sor. If the Input line was a legitimate ASF, a nor- 
mal return occurs and the recognizer reads another 
line and calls ASF again. If the return from ASF 
has the V bit set# It was not recognized and the 
routine EXECUT Is called. 

EXECUT Is the executable statement recognizer. At 
the time It Is called It has been determined that 
there are probably no more declaratives to be pro- 
cessed. 

EXECUT works similarly to DECLAR except that there 
still Is a possibility that the Initial lines found 
are not executable and that a return may have to be 
made to DECLAR. At the point where the first exe- 
cutable statement Is definitely found, the EXEC flag 
Is set to one and return to non-executables becomes 
1 mposs 1 bl e, 

EXECUT proceeds along, getting each line and dis- 
patching to the various routines needed to Process 
the statements. If a line cannot be recognized, or 
If the statement processor called returns with a V 
bit flag, then It Is possibly an assignment state- 
ment. The assignment statement processor (residing. 
In Part, In ASCI) Is the last resort for redeeming 
grace. If after being rejected everywhere else, a 
statement cannot be parsed by the assignment Proces- 
sor, an error diagnostic Is given to the effect that 
the statement In question Is undefined, unrecog- 
nized, or otherwise undecipherable. 

One side note, at the time of the Issuance of any 
diagnostic messaqe by a compiler routine, the error 
message word, and the text Pointer are saved In a 
list of diagnostic statements. At the conclusion of 
each statement, If this list Is non-null, the error 
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print routine (ERRRRT) Is called. This routine 
prints a oortlon of the Input text for recognition, 
the error number, and 1 f the diagnostic file Is pre- 
sent It also prints the text of the error message 
whleh matches the error number. 

Upon encountering an END statement or an 
end-of-flle, which forces an Implied END, the rou- 
tine ENDPRQ Is entered. This routine ooes through 
the symbol table and creates the various data Items, 
push routines, and array entries as reduired, After 
this Is completed, the FORMAT flags are checked and 
.GLDBLs are issued for each I/O tvoe and format type 
encountered during the compile. 

Now the file FORTRN.TMP is closed, reopened for In- 
put, and the assembler Pass is called. The assem- 
bler Is a highly modified version of the MACRO-11 
assembler with all features which are not needed bv 
FORTRAN stripped from it. At the end of the first 
phase of the assembly oass, the data block descrip- 
tor summary as described in section 4,11 Is generat- 
ed, During the second phase, the binary Is generat- 
ed as well as any listings desired. Upon completion 
the binary file generated is NOT closed, but the 
file FORTRN.TMP Is closed and deleted s<nee It Is no 
longer needed. The assembler returns to INIT which 
cheeks to see if any more Input Is to be processed 
from the input file. 1+ so, the compiler Is 
re-lnl 1 1 al 1 zed and the next routine Is Processed. 
When an end-o^-file has occured on the Input file, 
the binary and list files are closed and released, 
the keyboard Is INlTed, the error count Is printed 
on the keyboard (no error count Is printed If no er- 
rors occurred, obviously), and the compiler Is res- 
tarted, At this point <t types a * sign and the 
whole show is ready to start Over aqaln, 

11,2 Individual Statement Flow of Control 

See section 10 and the source listings for detailed 
statement flow. 
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12.0 PROGRAMMING considerations 

12.1 Code and Data storage 

Because of the possibility of organizing the overla- 
ys In such a way as allowing a routine to call a su- 
broutine In a different overlay, all data (Impure) 
storage should be separated from all code. This Is 
currently accomplished by placing the Impure areas 
In the routine TABLES which must always be Part of 
the resident root. Note that this also Implies that 
sel f-modl f y 1 no code should be avoided If possible to 
avoid placing unnecessary restrictions on which com- 
piler routines mav or may not be overlaid, 

12.2 Adding Statement Classes 

Though adding statement classes Is compar 1 t 1 ve 1 y ea- 
sy, several potential problems exist. In the rou- 
tines DECLAR and EXECUT there exists a prototype 
list which describes the ASCII reoresentat Ion of 
each of the statement verbs. This list Is a two 
part list, the first part of which consists of a 
string of pointers, the second of whleh consists of 
a string of ASCII prototypes. When an Insertion Is 
desired In the prototype list, a new pointer must be 
placed In the first part, and an ASCII prototype 
must be placed In the cor respond! ng position In the 
second part. If confusion results, consult the 
listing as an example, 

A. In the routines DECLAR and EXECUT are placed the 
ASCII prototype names for recognizing declarative 
and executable statements respectively. If It is 
deslreg to add a new name to the list, It must be 
realized that order Is somewhat Important, for in- 
stance the name INTEGER*4 must occur before the name 
INTEGER, This Is reauired because the scanner 
searches for the first occurrence of a completely 
matching prototype to the strlno being scanned, thus 
If the largest occurrences do not come first In the 
list, success may be incorrectly reported on a sub- 
set of the full name desired, 

B. In DECLAR, the Pointer list NEXTBL Is logically 
broken up Into several sections. From NEXTBL to the 
end of the list is scanned for the first statement 
of a routine. From HDRN to the end of the list is 
scanned for all other statements In the declara- 
tives, except when a BLOCKDaTA has been found, In 
which case the scan starts at BDATA, This makes It 
easy to make statements like EXTERNAL and DEFINEFILE 
Illegal In BLOCKDATA subroutines. 
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The entries from NXTBL1 to the end of the list are 
data tvDe entries like INTEGER, RE4L*2, etc. The 
order of these entries matches the order of the byte 
table MODE which is used to assign a numerical value 
(the data type) to the entry. The table MODE must 
have exactly the same number of entries as there are 
prototype entries to recognize, 

C. The entries in the two prototype tables match in 
oraer entries in the various overlay headers, allow- 
ing a quick transfer to the prooer routine for han- 
dling the particular name. T*e only exception oc* 
curs in the data tyoe entries as described above, 
which all transfer to either the IMPLICIT or the 
TYPE handler with the proper data type as retrieved 
from the MODE table. The IMPLICIT and TYPE handling 
is done specially to minimize the effort reauired bv 
the individual processors. 

D. In EXECUT the pointer list EXTOL is logically 
broken down into two parts. For normal statement 
handling, the whole list is scanned. For logical IF 
processing, the scan is started at TFTAB to elimi- 
nate illenal combinations of statement tyoes within 
the statement bv default. This structure is handled 
in a similar manner to that in section ? above. 
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13.0 PREPARATION AND/OP SYSTEM BUILD 

13.1 Building the Compiler 

Building a compiler from scratch requires assembling 
the <*8 separate modules and linking then as des- 
cribed In the following steos. Note that when a 
file name Is mentioned below, the extensions are not 
mentioned. Source files all have the ,MAC exten- 
sion, object files are ,0RJ» and load modules have 
the .LDA extension. 

Assembling must be done using MACRO (make sure that 
the system -aero file SYSMAc.SML Is present while 
assembling). Linking Is done using LINK-11 (note 
that a compiler cannot be linked on a machine small- 
er than 12K). 

A. Assemble the following modules, 

ASCI 

ASC2 

ASF 

CQMmQN 

CORET 

DATA 

declar 

DEFINE 

DO 

DQFIN 

ELDC 

endstm 

errloc 

EVALU 

EXECUT 

EXTERN 

format 

funnam 

GCMPLX 

GOTO 

MORGEN 

IF 

IHPlIC 

IOSTMT 

MSSIO 

OUT SL 

OVLAV 

PATCH 

PST 

RDCI 

runlnk 

SPCLST 

SUBFUN 



PAGE 79 


PDP-11 FORTRAN, 1 30-379-05? 1 -06 

Preparation and/or System Build 


SYMJAB 

utilty 

Assemble the routine MACFTN using the /NL : CND 

switch. 

If building an BK compiler ao to step B , otherwise 
go to step C, 

B. Assemble the following routines with the file 
8 K,MaC as their headers, 

ENDPRO 
ERRPRT 
GENCVL 
INIT 
i opack 

STRTUP 

SYMBOL 

tables 

An example of a MACRO command strinq used here might 
be: 

#INIT,LP:<3K, IK'IT 

Now assemble the following routines without the file 
8K.MAC. 

HDR0O 

HDR01 

HDR02 

HDR03 

HD«04 

Now go to step D, 

C. Assemble the following modules* 

ENDPRO 

ERRPRT 

genovl 

INIT 

IQPACK 

STRTUP 

TABLES 

HEAO70 

HEA071 

HEAP72 

HEAD03 

HEADP4 
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D . At this point all of the assemblies are com- 
plete. The next phase consists of linking the com- 
piler main orogram and each of the overlay builders. 
If building an 8K compiler go to step E, otherwise 
use step F, 

E. Do the following links. This will cause the 
overlay builders (OV0-QV4) to be bgilt as well as 
the compiler main program. 

SRUN LINK 

#OV0, LP l <GENOVL,STRTUP,FLOC, SYMBOL, SURFIJN.DAT A 
#GCMPLX,OUTSL,HDRGEN,MSSIO,FUNNAM,ERRPRT, INTT 
#HDR00,OVLAY,UTILTY,ERRLOC, tables, IOPACK 
#PATCH/T*37460/F 

#OVl,LPi<GENOVL»STRTUP,ELOC,ENDPRO,ENDSTM,RDCI 
#SYMTAB,HDR01 ,OVLAY,UTILTY,ERRLOC, tables, IOPACK 
#PATCH/Tl37460/E 

#0V2,LP!<GEN0VL,STRTUP,EL0C, SYMBOL, COMMON, EXTERN 
#DEFINE, IMPLIC,SPCLST,ASF,GCMPLX,DECLAR,HDP02 
POVL a Y,UTILTY,£RRLOC, TABLES, IOPACK, PATCH/T: 37460/e 

#0V3,LPS<GEN0VL,STRTUP,EL0C, SYMBOL, C0RET,D0FIM, 00 
#ASC2, ASC1,EVALU,GCMPLX, IF, EXECUT, HDR03, OVLAY 
#UTILTY,ERRL0C, TABLES, IOPACK , PATCH/Tl 3746B/E 

#0V4,LP:<GEN0VL,STRTUP,EL0C, SYMBOL, form at, define 
# lOSm,GOT0,DOFIN, ASC2, IP,EXECUT,HDR04,OVLAY 
#UTILTY,ERRL0C, TABLES, I OP ACK , PATCH/T t 37460/E 

#FORTRN,LP:<STRTUP,GENOVL,ELOC, SYMBOL, SUBFUN, DAT A 

#GCMPLX,QUTSL,HDRGEN,MSSIQ,FUNNAM,ERRPRT, INIT 
#HDR00,OVLAY,UTILTY,ERRLOC, TABLES, IOPACK 
#PATCH/Tl37460/E 

This comoletes all of the linking for the 8K com- 
piler. Now run the files OV0 through 0V4 inclusive 
as foil ows : 

SRUN OV0 
SRUN QV1 
SRUN 0V2 
SRUN 0V3 
SRUN 0V4 

The files OV0 through QV4 may now be discarded. The 
file FORTRN.OVR which was Just created by running 
these routines is the master overlay file. The file 
FQRTRN.LQA linked previously is the compiler main 
program. 
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To build the dlag 

F. Do the follow 
overlay builders 
the comoi 1 er main 
sneelfled below 
fled here for the 

/T value 
57460 
77460 
11746* 
137460 
157460 


ost 1 c file go to 

ng links. This 
(OV0-QV4) to b 
program. Note t 
should have the 
var r i ous mach i ne 

machine size 
12K 
1 6 K 
20K 
24K 
2«K 


section 13,2, 

will cause the 
e built as well as 
hat the /T switch 
top address soecl- 
con f 1 gurat ions. 


The particular examole shown below is a 16K link, 
$Rl)N LINK 


#OV0#LP:<GENOVL,STRTUP,ELOC,MSSIO,FUNNAM,ERppt?T 
AENDPRO, ENDSTM, INTT, RUNLNK, nUTSL,HDRGEN 
#UTILTY,ERRLOC,RDCI,SYMTAB,HEAD00,OVLAY 
ATABLES, I OP ACK,PATCH/T: 77460/E 

#OVl,LP*<GENOVL»STRTUP»EL0C. COMMON, EXTERN, SUBFUN 
ADfcFlNE, IHPLIC,GCMPLX,DATA,3PCLST, ASF,DECLAR 
AOUTSL,HDRGEN,UTILTY, ERRLQCf RDCI 

ASYMTAB,dEAD01 ,DVLAY, TABLES, inpACK,PATCM/Ts7746(VE 

•0V2,LP!<GEN0VL»STRTUP,EL0C,C0RFT, in8THT,D0FIN,D0 
AASC2, ASCI, IF,GCMPLX,EVALU,FXFCUT, OUTSL, HDRGEN 
#UTHTY,ERRLOC,RnCI,SYHTAR,HEAD02,OVLAY,TABlE% IOPACK 
APATCH/T : 77460/E 


A0V3, LP : KGENOVL, STRTUP, ELHC, GOTO, DEFINE, FORM AT, DOFIN 
#IF,GCMPLX,EVAl'J,EXECUT,0UT3L»H0RGEN,!JTTLTY,ERRL0C 
ARDC I, S YdTAB, HE AD33,0VL AY, TABLES, IOPACK 
APATCH/TJ77460/E 


AOV4,LP:<GENOVL,STRTUP,ELOC,PST,MACFTN,MEAD04,OVLAY 
ATARLES, IOPACK, PATCH/T: 77460/e 

AFORTRN [1, l]<STRTUP,GENnvL,ELOC,MSSIO.FUNNAM 
AERRPRTf ENDPRO, ENDSTM, IN IT, RUNL N K, OUTSL, HDRGEN 
AUTILTY,ERRLOC,RDCI,SYMTAS,HEAD00,OVLAY,TABLES 
AlOPACK, PATCH/T J 77460/E 

This eomoletes the linking of the comoiler. Now run 
the files 0 Va through 0V4 inclusive as follows: 


$RU OV0 
SRU OVl 
JRU OV2 
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SHU 0V3 
SHU 0V4 

THe files QV6) through 0V4 may now be discarded. The 
file FOHTHN.OVR which was Just created by running 
these routines is the master overlay file. The file 
FORTRN.LOA linked previously is the compiler main 
program • 

To build the diagnostic file no to section 13,2, 


13,3 Building the Diagnostic file 

See chapter 4 of the "Getting on the air with FOR- 
TRAN" document. 
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14,0 TERMINOLOGY 

General register - one of the eight fast processor 
registers 0-7 on the PDP-11. 

ANSI - American National Standards Institute 
ASCII - American Standard Code for Information In- 
terchange. 

CREF - Cross PEPerence (listing). 

OTS - ” Object Time System", that portion of the FOR- 
TRAN which interfaces the compiled program to the 
world. 
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15,0 Timing Analysis 

The following document Is not directly related to 
the ooeratlon of the comoller. But, due to the fact 
that It may be useful to anyone desiring 'to Improve 
the compiler efficiency, it is included In the spec* 
Iflcation as an appendix. The analysis was done In 
September 1971, using V0018 of the compiler and 
V005.2 of the DOS monitor. 

Though this timing analysis was done with an early 
version of the compiler, the basic conclusions can 
still be considered to be correct, even though the 
exact times may have changed. 
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A FORTRAN CO-1PTLFR TIMING ANALYSTS 


0 . K n 1 a h t 
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INTRODUCTION 

The following information is the result of several runs of 
the PDP-11 FORTRAN compiler running under the suoervision of 
a statistical sampling Package as implemented under PDP-11 
DOS Version b.l, This package is designed to allow a user 
program to he run under the monitor while collecting data 
about the frequency of execution o* all or part of the user 
program and/or the monitor. The result of a run consists of 
a file of information containing a large number of addresses 
and pointers pertaining to the flow of execution as sampled 
statistically at approximately 16 millisecond intervals. 
For more information about the program in question see Ap- 
pendix I, 

PROGRAM CONFIGURATION 

The comoiler version in question has a overlays# 3 of which 
are used to convert FORTRAN TV source code into assembler 
acceptable input# the fourth overlay being used to assemble 
that inout and create an object file suitable for linking by 
the relocatable linker. The fourth overlay is a highly mod- 
ified version of PAL-llR which has been restructured to re- 
move all assembly features not needed by the FORTRAN system 
as well as to improve soeed where possible. Previous to 
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this test* the assemble 1 * chase was run stand-alone with the 
sampling package to effect these 1 morovements. Currently# 
the assembler phase runs approximately 3 times faster than 
the standard assembler for identical input and outout re- 
quirements. The remainder of the compiler is as described 
in the compiler specification 130-319-001, 


TIMING RESULTS 



Due to the various compiler runs being made on different 
files of varyina lennths# all of the data given here have 
been consol i dated. The timino figures given here are all in 
terms of a "percent of total" rather than an absolute number 
of seconds or minutes. These figures are based on a total 
compile time of approximately 40 minutes. Add rox i mat e 1 y 60 
different routines of varyimq length and requirements were 
compiled# some very short amp some very long. About half of 
the routines compiled came from the Fortran Scientific Su- 
broutines Package (SSP). The average real compile speeds 
tended from b0 to 1^0 statements oer minute on both RF-11 
and RK-ll based systems. 
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TOTAL TIMES 

Considering the total time used# the percentage actually 
spent in the compiler amounted to 36,2% while the time soent 
<n the monitor was 63. 3%, 
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In this and following sections# times in Dapentheses refer 
to the percentage of the TOTAL clock time. 



The comDiler will oe referred to as two seoarate sections, 
the comDile phase which generates assembly code, and the as- 
sembly ohase which converts the assembly code to binary. 
The compile ohase accounts for 2? (7,3) percent of the time 
while the assembler accounts for 80 (?8.9) oercent, Within 
the compile phase there are three areas which account for 92 
(5,2) oercent of the comoile ohase timing. The symbol table 
handling, being the major Dart of this time takes 41 (2.9) 
percent of the compile time phase. The I/O and character 
manipulation routines (especially the general string seareh 
routine) account for the remainder with the I/O handler tak- 
ing 32 ,i? (1.8) oercent of this phase* 



The assembler phase is dominated by b routines which take uo 
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43,8 (15,8) percent of the total compiler time. 

These routines are: 

BLKSWF -which is user) to blank a listing buffer 
auires 7.8 (2,8) percent, 

ITEM - which is used for part of the syntax scan 
auires 12,4 (4,49) percent, 

SERCHB - which is used to search the symbol table 
6,8 (2,46) percent. 

The routines to sa^e and restore registers account 
9,3 (3,26) percent, 

A routine to search for a line terminator (TERMIN) 
auires 7,8 (2,8) percent. 

Appendix II contains the detailed table from which 
timings were aostracted. 


CONCLUSIONS 

If it is desired to increase the speed of the compiler 
now exists, several options are available. First, the 
niaue likely to show the most immediate gain in soeed 


re- 

re- 

uses 

for 

re- 

t hese 


as 1 1 
tech- 
wou 1 d 


be to try to reduce the percentage of time spent in the mon 
itor proper. The time (63,8%) spent in the monitor current 
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1v dominates the entire compiler so that changes to the com- 
piler system are hiahly likely to be masked bv the monitor 
overhead. I believe, but have been unable to substantiate 
yet# that an appreciable portion of the monitor overhead is 
being soent deleting the temporary file required bv the com- 
piler. I have no concrete figures on this vet# but the var- 
ious attempts at estimating and/or measuring this time tend 
to account for between lb to 30 percent of the total time 
used bv the compiler. If this is true# this is an obvious 
place to start to improve compiler speed. 

After the monitor is improved# or if it is determined that 
the monitor cannot be improved (i) the next option would be 
to modify the assembly Phase in the routines which are cur- 
rently taking the most time. One obvious candidate is to 
try to find a way around the current need to blank the list- 
ing buffer before placing anything in it. Even so# this or 
any other individual change# if done without changing the 
monitor overhead will show no more than a 3 to 8 percent im- 
provement in the total throughput. 

The least fruitful option is to make improvements in the 
compiler (exceot with respect to overlay handling), Anv 
change here would likely account for only a small increase 
in total speed. If core reduirements are such that the com- 
piler could be made into fewer overlays or in the unlikely 
possibility of being able to make it entirely core resident# 



PDP-11 FORTRAN, 1.30-309-«m-06 
T i -i ng Analysis 


PAGE 91 


a total improvenent o* 5 - 15 percent i 



likely. 
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The statistical sampling Package as used here consist of 
thpee routines. The first* SAMPLE* is linked with a user 
crogran when it is desired to obtain tiding information 
about that Program or the system it runs with. This program 
gains control of the Kw-11 line clock and uses the clock in- 
terrupts to find out where the execution is taking place at 
the time of a clock interrupt. Thus* if the program is run 
long enough to qet a few thousand samples* a statistical 
picture may be built showing the relative percentages of 
time spent in various portions of a program. 

This technioue is very useful* but not without problems* 
Any code which is dependent on the clock, such as interrupt 
handlers which get service once for every clock interrupt 
are not likely to show up in the data. Also if a program is 
timinq dependent* the additional overhead inserted in the 
clock interrupt loop «av he sufficient to distort the infor- 
mation, Another problem occurs because the samoling routine 
needs the monitor itself to output the data collected. The 
normal user program generally will not be affected by these 
problems* though it must be recognized that there is a rea- 
sonable level of uncertainty which makes it necessary to ex- 
amine each usage of the technique carefully. 

In the DOS implementation here* the samples collected are 
stored in a Puffer until 173 have been collected. At this 
point the user orogram is suspended for a short time while 
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the data is outmjt to a file which is reserved for accumu- 
lating the data. Upon the completion of the run, this file 
is .used as data for a d rogr a m which Generates histograms of 
core utilization with resoect to time. 

T^e program to evaluate the data consists of two oarts. The 
first, written in assembly code is used only to read the 
file and oass the information along to a calling orooram, 
T^e second, written in FORTRAN evaluates the raw data deta- 
ined from the first and generates the histograms on the line 
printer. The reason for this routine being written in FOR- 
TRAN is that deoend’oa on the program beina timed and the 
data collected, it may be desirable to modify the report 
generator in various places to "tailor" it to the task. 
Thus information which is deemed Pertinent bv the user of 
the system m a v be collected that was not recognized as being 
important by earlier users, 

TMs system will be described in mone detail shortly when a 
complete document is finished describing it and its oarts. 
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ITEM 

% 

X 

X 

X 


COMPILE 

ASSEm. 

WHOLE 

total 


PHASE 

PHASE 

COMPILE 

TIME 


COMPILE 

70, 

7.3 

assemble 

80. 

28.9 

MONITOR 


63,8 


COMPILE 

BREAKDOWN 



I OP A C K 

32. 

5.0 

1,8 

SVMTA9 

15.1 

2.3 

.72 

R DC I 

16.7 

7.9 

1.74 

utilty 

28,3 

4.7 

1.70 


I Op A C K BREAKDOWN 



CHECK INPUT 



LINE 12.0 

2.4 

.87 

BUILD INTERNAL 



LINE 4.3 

.8 

.29 

OUTLN » OUTLM 12,8 

1.8 

.65 


SYMTAB BREAKDOWN 



GETSYM 4.1 

.7 

.25 

SERATR 6.3 

1 . 

.35 


RDCI BREAKDOWN 



DIVIDE 9,3 

1.7 

.61 

MUL54 6.0 

1 . 1 

.39 


UTILTY BREAKDOWN 



PACK 

3.3 

.6 

.22 

nxtch.cnxc 

4,6 

.8 

.29 

S C A N 2 A 

9.4 

1.6 

.58 

UNPACK 

5.9 

1. 

.36 
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ASSEMBLE BREAKDOWN 
BLKBUF 

9.4 

7.8 

2.8 


ITEM 

14.9 

12,4 

4.5 


serchb 

8,3 

6.8 

2.46 


REGISTER SAVE 

AND RESTORE 

13.9 

9,* 

3.26 


ENTER3 

.8 

.7 

.25 

3 WORD LOOP 

BINSRCH 

5.0 

4.1 

1.5 


TERMIN 

Q.6 

7,8 

2.8 


number 

3.5 

3.1 

1.1 


nchar 

4.5 

3.7 

1.3 


setupi 

5,1 

4.2 

1,5 


0INASC 

4.8 

4,3 

1.4 


ENDLINE 

ERROR LOOP 

3.5 

3.0 

1.0 


MONITOR BREAKDOWN 






Of the tl^e spent In the monitor (63.8%), approximately 60% 
(40%) of the time Is spent In the I/O wait loop of which 
about half of the wait time can be attributed to the file 
delete which occurs and the other half occurs durinq the 
compiler I/n. The remainder of the monitor time, 33% (24%) 
is taken up by the reaa/write processor. 
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16 
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16 
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/AS . 
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15 
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12, 

13 

/CO . 
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14 


/er . 
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14, 

33 

/GO « 

• • • • • 

e e 

14 


/LI . 

• • • • • 

• e 

14 


/ON . 



13 


/su . 

• t#e# 

• • 

13, 

38 

6K Assembly . . 

e e 

79 


Addi ng 

Statement 

Classes 

76 

Adjustable Arravs 

• 

49 


A r 1 1 hment 1c IF , 

• • 

46 



Arithmetic expressions 35 
Arithmetic Statement Functions 49, 62 
Array Descriptor Block 12, 29 
Assembly Phase ... 69 
Assembly symbol table 70 

ASSIGN 41 

Assigned GOTO . . . 35, 40 

Assignment and CALL statements 61 

BACKSPACE 42, 70 

BLOCK DATA ..... 49 

Building the Compiler 79 

BYTE 37 

Bvte format .... 23, 34 

CALL . 39 

Calling Conventions . 16 
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Character Set/Codes . 18 
Character strings . 23 
Code and Data storage 76 
Code generation example 52 
COMMAND LANGUAGE . . 58 
Command strings , , 58 
Command Strinas . , 15 
COMMAND STRUCTURE . 58 
COMMON ....... 44, 62 

COMMON Block header . 28 
COMMON Block list . 29 
Common Table .... 28 

Compiler Data Structures 26 
Compiler I/O .... 33, 69 

Compiler initialization 69 
Compiler internal labelling 16 
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Compiler Options . . 15 
Compiler overlay Handler 70 
Compiler Patch area . 70 
Compiler start up code 71 
Compiler symbol table processor 71 


Como 1 1 er tables 

• 

• 

71 


Comp |1er Utilities 

• 

72 


Complex format . 

• 

• 

23, 

34 

Comouted GOTO . 

• 

• 

35, 

4 \d 

Constants . . . 

• 

e 

34 


CONTINUE .... 

• 

• 

41, 

63 

CONVENTIONS AND STANDARDS 

16 

D A T A • • * • • • 

• 

• 

45, 

63 

Data Conventions 

• 

• 

22 


Data Conversion Routines 

9 

Data Structures 


9 

26 


Data Types . , . 


9 

34 


DATE 


9 

51 


Declaratives . . 


9 

63 


DECODE • § • « • 


9 

36, 

50 

DEFINE FILE , . 


9 

35, 

48, 

Design Philosophy 


9 

4 


Dlaanostic Output 


• 

33 


dimension . . . 

• 

9 

43 


DIMENSION processor 

» 

. 71 


DO 

• 

9 

46, 

64 

DO Statements . 

• 

9 

35 


DH Tabl© • • 9 • 

9 

9 

30 


DO termination . 

• 

9 

64 


DOUBL E 9 • * 9 9 

• 

9 

37 


Double conversion 


9 

70 


Double Precision 

format 23, 

ENCODE 


9 

36, 

50 

ENCODE/DECODE . 


9 

10 


end 9 • • • « • 


9 

43 


Ena processing . 


9 

64 


END* 


9 

10 


endfile .... 


9 

42, 

70 

EQUIVALENCE . . 


9 

44 


Eauivalenee block 


9 

3G 


E^R* 9 • • • • • 


9 

10 


Error processing 


9 

65 


E ^ 8^P 1 69 9 • t • 


9 

19, 

24, 

Executables . . 


9 

66 


EXIT 


9 

51 



52 


Expression evaluation 65 
Expression Stack structures 31 
Expression Table structures 31 
EXTERNAL 38, 66 


File conventions . . 24 
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36. 

48 

FORMAT , . 
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37, 

42, 66 

Formatted 

I/O ... 

10 


For m at ted 

Records . 

11 


FUNCTION . 

• • • • • 

38, 

71 

Funet ion typing . . 

66 


functional 

DESCRIPTION 73 


Future Cons i der at i ons 

6, 

15 

GLOBAL FLOw OF CONTROL 73 


GOTO , . . 

• • • • • 

44, 

67 


HARDWARE ENVIRONMENT 6 
Hardware Options . . 6 


HEX constants 

• 

9 9 

34 


Hollerith constants 

. *5 


I/O Conventions 


9 9 

17 


I/O LIST TERMINATION 

1 1 


I/O Lists , . 

• 

9 9 

10 


I/O Routines . 

m 

9 • 

10 


I/O statement processing 

69 

I/O Statements 

9 

9 9 

35 


IF 

m 

9 9 

46, 

68 

IF Functions . 

9 

9 9 

8 


IMPLICIT . . . 

• 

9 9 

37, 

48 

I mp 1 i c i t table 

9 

9 9 

30 


Impure area . 

9 

9 9 

71 


INPUT/OUTPUT . 

9 

9 9 

3 3 


integer . . . 

9 

9 9 

37 


Integer format 

9 

9 9 

22, 

34 

INTFGER*2 . . 

9 

9 9 

37 



Internal Document at i on 17 


Labelling Conventions 15 
LANGUAGE CHARACTERISTICS 34 
Language Differences from ANSI 34 
Library routines . , 51 
L i ne Formats ...» 34 

LINK 51 

Linking the Compiler 80 
Logical IF ..... 46 
Logical values . . . 23 
LDGICALM 37 

Main Symbol Table . 26 
Minimum Hardware Reauirements 6 
Mode precedence . . 31 

0 FORMAT 37 

Object Languaae Qutcut 38 

Object Output Labelling Conventions 18 

Object Time Data Structures 31 
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Operating Conventions 17 
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Operator Precedence , 31 

Options 13 

OT$ differences fro* ANSI 51 
OTS Requirements . . 7 
overall DESCRIPTION . 4 
Overlay initialization 57 
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PAUSE 35. 41, 57 

PDUMP 51 

PHYSICAL DESCRIPTION and ORGANIZATION 61 

Polish Assumptions . 

polish assumptions . 19 
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Polish exit . . . • 21 

Polish formal parameters 21 

Polish function return 

Pdlish Routines . . 7 

Polish Subscript Hand' inn 21 

preparation AND/OR SYSTEM B I L D 75 

PROGRAMMING CONSIDERATIONS 76 


ran 

51 


Random Access I/O . 

13, 

51 

randu 

51 


READ . 

3 6 9 

47 

REAL 

37 


Real conversion , , 

73 


Rea^ format • • • • 

22. 

34 

REAL*4 

37 


RFAL*8 

37 


References ..... 

4 


Register Conventions 

16 


RETURN 

4 3. 

43 

REWIND . 

42, 

70 

RUN ........ 

51 


SETERR ....... 

51 


SETFIL 

51 


SOFTWARE Environment 

7 


Source File Assembly 

78 


Source Lanouaoe . . 

34 


Specification Statements 

37 

SSWTCH 

51 



Statement flow of control 75 
Statement Order Restrictions 37 
Statement seauencina 38 
STOP 35. 42, 67 



PAGE 100 


PDP-11 FORTRAN, 130-309-001-06 
Index 


Storage allocation . 26 

SUBROUTINE 38, 71 

Subroutine Callinq Conventions 18 
Subscript Computation 12 
Subscript Routines . 13 


SWITCHES 73 

Switches ...... 12, 13, 33, 58 

T FORMAT ...... 37 

Table o f Contents • 2 
TAk ........ 51 

TERMINOLOGY .... 83 

Threaded Code ... 19 

TIME 51 

Timina Analysis . . 84 

TSTERR 51 

TYPE processor ... 71 
TYPE statements , . 43 

Unformatted I/O . . 1* 

V 2 4 . . . . . . . . 8, 9 , 1 3 , 23, 24, 33, 35, 

V 05 4, 6, 14, 17, ?4, 31, 37, 

V06 14, 20, 60, 59, 70, 71 

WRITE 36, 47 



1 


38, 48. 49, 58, 61, 73, 
58, 62, 63, 64, 65, 84 
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Figure 1 - Array Descriptor Block 


Address 

N 

n + 2 

n + 4 

n + 6 
n + 10 


Address of first data element 


# 

Data 


Data element 

Dims 

Type 


size in bytes 


max. dimension - first subscript 


max. dimension - second subscript 


max. dimension - third subscript 


Words 3 and/or 4 appear only for two and three dimensional arrays 
respectively. The ADB as stored in the complier is similar except 
that the first word is used to point to the next ADB entry. 
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Figure 2 - Integer Format 


Address 

n 

n + 2 


value 


filler 



The filler is used only as a placeholder. The /ON causes 
the removal of this filler word at compile time. 
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Figure 3 - Real and Double Precision Format 


Address 

n 


P* \ 


n + 2 


n + 4 


15 

14 7 

6 

0 

S 

i 

g 

n 

BINARY EXCESS 128 
EXPONENT 

HIGH ORDER MANTISSA 

15 



0 


LOW ORDER 

MANTISSA 


15 



0 

DOUBLE PRECISION 



n + 6 


MANTISSA EXTENSION 
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Figure 4 - Complex Format 

Address 

N Real Part (format same as in figure 3) 

N + 4 Imaginary Part (format same as in figure 3) 



Figure 5 - Main Symbol Table Format 


address 15 


Entry 

Type 


14 13 12 11 


Data Type 


ADJ 

Prog 

Array 

Name 



or parameter list index (if constant = 0 

and parameter = 1) 


J + 2 Common ADJ Equi- Para- 
Array valence meter 


J + 4 


J + 6 


Entry Serial Number 


Address of next entry in table (-1 if last entry) 


Symbol Name in RADIX 50 (two words) 


4 + 12 Ref. 


<i + 14 


Assign 

Explicity 

Used 

Gener . 

# of 

Unused 


Type 

in 

PUSH 

Dimensions 




Expr . 





(0 = not in common, 
1 = blank common) 


ADB pointer for subscripted items 


* + 16 


Any additional words will contain the entry value if 
the CONSTANT bit is set. 
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Figure 6 - Common Block Header 




N 

N + 2 

N + 4 

N + 6 

N + 8 

N + 10 


Link to next block header 


First characters of block name 
(ASCII) 


Second 2 characters of block name 
(ASCII) 


Last 2 characters of block name 
(ASCII) 


0 


Link variables in this block 


f 
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Figure 7 - DO Table 


N 

Statement number of terminal statement in 

RADIX 50 

N + 4 

Serial number of destination return label 

N + 6 

Pointer to control variable symbol table entry 

N + 10 

Pointer to initial parameter symbol table entry 

N + 12 

Pointer to terminal parameter symbol table entry 

N + 14 

Pointer to step value symbol table entry 
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Figure 8 - Compiler Memory Layout - Declarative Phase 
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The symbol table is allowed to expand upwards. The COMMON/Equivalence 
table is allowed to expand downwards. 
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Figure 9 - Compiler Memory Layout - Executable Phase 
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FORTRAN Compiler Overall Flow 
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1,0 OVEPALU DESCRIPTION 


1,1 Usage 

The Object Time System (OTS) is a library of assembly 
language programs to be used as a comolement to com- 
piled code in running Fortran on the PDPll, The OTS is 
divided into four principal parts* 

A) The I/O processing routines, 

8) The mathematical subroutines and function genera- 
tors, 

C) Miscellaneous service routines, 

0) I/O device tables* buffers and run 'switches' 

The OTS will handle certain unit interface problems 
connected with I/O but will not include any load* link 
or monitor section. For a description of the Fortran 
functions to be supported see 130-309-101, 


1,1,1 I/O Processing Routines 

The I/O section will handle building of user input and 
output records (according to any Fortran format specif- 
ications) and accomplish file mun i ou 1 at 1 ons through the 
system monitor. The format processor consists of three 
sections: 

A) A routine whieh associates items in the format with 
items in the I/O list and I/O record, 

9) A set of routines which perform format specified 
conversions to and from character strings, 

C) A set of monitor interface routines will act as dev- 
ice drivers. 


1,1,2 Mathematical Subroutines and Functions 

The math routines sect 1 on will handle two types of 
tasks: 

A) Arithmetic operations not supported by the 11/20 
hardware - eg floating point* double precision* 
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etc • 

B) Standard mathematical functions supported by Fortran 
- eg. SIN.ATAN, EXP, etc. 


1,1,3 Hi seel 1 anceous Service Routines 

The miscellaneous service routines will perform such 
functions as array Index arithmetic, exit, and error 
process 1 ng. 


1,1,4 i/o Device Tables and Buffers 

I/O device tables, buffers and run switches represent 
the non- reentrant portion of the OTS, It contains the 
link blocks, file blocks, device status switches, etc, 
for Fortran I/O and any buffers which are necessary to 
perform I/O, It also contains any global values or 
switches which are necessary to execute the users oro- 
gram(e,g, last encountered statement number, subrou- 
t 1 ne name chain). 


1,2 Design Philosophy 

In coding The Object Time Package emphasis will be 
Placed on soeed efficiency In the arithmetic routines, 
and economy of core at the possible expense of soeed In 
the I/O routines. 

In general, routines will be segmented so that only 
code needed by a particular Fortran run will need to be 
1 oaded. 


1,3 References 

The mathematical function algorithms will be drawn from 
DEC-1 1-GGPA-D, IBM-C28-6596-2, IBM-C26-5929-4, Hastings 
• Approximations for Digital Computers, Hart - Computer 
Approximations, standard reference texts, ete. 
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2,0 HARDWARE ENVIRONMENT 


2,1 Minimum Requirements 

PDP11 Fortran OTS will run under the Disk Monitor# 
which requires a minimum of 8 k of core# RF-ll Disk# 
Hiqh Speed Reader/Punch or Deetaoe# end an ASR-33 TELE- 
TYPE. 


2,2 Options 

If more than 8K of core is available# OTS can be linked 
to use all available space, OTS will suoport all stan- 
dard product line options which are supported by the 
Disk Monitor (DOS). 


2,3 Future Cons i derat i ons 

The OTS is a highly modular system; extensions to sup- 
port new hardware options within the DOS environment 
can be made with minimal effort. 
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3.0 software environment 

3.1 Minimum Requirements 

The Object Time System will n e quire the services of the 
linking loader and the PDP-11 Disk Monitor, 


3,2 Ootions 

The Object Time Package will supoort array overflow di- 
agnostics optionally set up by the compiler, (see 
130-309-001 section 3, 1,2, 6) 


3,3 Future Considerations 

All Object Time Code will be re-entrant to facilitate 
future development* however, certain QTS routines re- 
quire addresses of areas which are task specific. The 
RSX-11B-C monitor provides a facility bv which an ad- 
dress within a task area can be obtained by the OTS 
when that task is in execution. This address is the 
address of a vector of pointers to the soecific impure 
area used by the OTS (SOTSV, see 5,5) 
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4.0 CONVENTIONS AND STANDARDS 

4.1 Registers 

The general registers will be referred to as follows* 

Reg 0-5 ■ R0-P5 
Reg 6 a SP 
Reg 7 ■ PC 

The 11/45 floating Doint accumulators will be referred 
to asi 

Accumulator 0-5 * F0-F5 


4,2 Calling Conventions 

4,2,1 Standard Calling Conventions 

All standard calling conventions are discussed in 
130-309-001, 


4,2,2 Internal Calling Conventions 

OTS routines whieh do not interact directly with for- 
tran compiled code may use calling conventions differ- 
ent from any of the above. These will'be exclaimed in 
the routine deseriot ions. 


A, 3 Documentation 
Documentation will consist of * 

a) The latest revision of this document 

b) General system block diagrams 

e) Heavily annotated listings. Almost all lines of 
eode will have comments. Each routine will have 
heading text describing its function and use, 
d) Discussion of algorithms used in the -at h Package, 


4,4 Data formats 
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4,4,1 Integer Format 

An Integer le a sixteen bit, two's complement, word al- 
igned quantity. Only the high order ( 1 ower-addressed) 
word (or Its address) of Integers stored In the two 
word format will be Dresented to OTS comoutat 1 onal rou- 
tines, Similarly, all Integer results from such rou- 
tines will be one word only. 


4,4,2 Real Format 

Reel numbers consist of two words of data as followsi 

WOPD n bit 15 ■ sign of fraction 

bits 14-7 * binary exponent excess 128 

bits 6-0 ■ high order fraction magnitude bits 

WORD n+2 bits lb-0 ® low order fraction magnitude bits 

This format Is limited to normalized numbers. The high 
order bit of the fraction (always 1) Is emitted from 
Its Implied position (bit 7 of word n). 


4,4,3 Double Precision Format 

Same as 4,4,2 followed bv two more words of extended 
low order fraction. 


4,5 Re-entrancy 

All OTS code will be re-ent rant ,( see 3,3) 


4,6 Labeling Conventions 

All OTS routines will have a title which begins with a 
'$' followed by three aloha's and two digits. The 
three aloha's will Indicate the routine name while the 
two numerics will indicate the current version number. 

Internal labels are freely chosen for mnemonic signifi- 
cance, All OTS ,GLQBL's have 'S' as their first char- 
acter to avoid conflict with user GLOBL symbols! 
user-callable subroutine entry points do not begin with 
'S' (eg SIN, SETFIL). 
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5,0 data structures 


5,1 I/O Device Table (SDEVTB) 

Resides In the non-reent rant portion of OTS, It la 
used to associate a real device and file with the user 
specified device number. It consists of two sections - 
a header for general control Information and entries 
for specific Information about I/O status. 


5,1,1 Device Table Header 

WORD-1 vector entry for device *3 (logical da- 
ta set name CMO) used foe error logging 
device 

WORD 0 addr of error msg file link, file and 
block block 

SDEVTB | WORD 1 number of entries In device table (de- 
fault 8) 

WORD 2 device num of pMnt file (error msg 
logging device) default dev 1 ce«-3 

WORDS 3-10 address of SDEVTB entry for device 
number (1-8) (If any word'B device 
number is net allowed) 

NOTE* The number of devices available may be changed bv 
altering WORD 1 and appending to or deleting from last 
8 words of header. 



5,1,2 Device Table Entries 
Each entry Is 16 words long 

W0 R D 1 DD8 pointer (from link block after Inlt) 

WORD 2 physical device name In RAD50 

(See Section 5,1,4 for defaults) 

WORD 3 unit num (default*0) (NOTE 1) 

WORD 4-5 filename RAD50 (default 'FORnnn 1 where nnn Is 
device num) 

WORD 6 file extension RAD50 (default ’DAT') 

WORD 7 switches (NOTE 2) /protect code (default 233) 

WORD 8-14 for non-random I/O 

WORD 8 statgs/mode from line buff header 
WORD 9 count of I/O operations for this device 
WORD 10-12 unused 
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WORD 13 num records to allocate (from SETFIL) Mote 1 
WORD 14 record lenoth in bytes to allocate (fro" SET- 
FIL) Mote 1 

WORDS 8-14 for random I/O 

WORD 8 function word 
WORD 9 block number 

WORD 10 buffer address (from monitor) 

WORD 11 buffer lenoth (from monitor) 

WORO 1? associated var addr (fro* DEFIME FILE) 

WORD 13 maxnum records in file (from DEFTNF FILE) 

WORD 14 record lenoth in bytes (from DEFINE FILE) 


WORD 15 UIC (def aul t 0, implies login UIC) 
WORD 16 add r of error value var (from SETFIL) 


MOTE 1 - The how oDen byte is normally 0 when the file 
is dosed. However, if the user wishes to allocate a 
contiguous file at run time, SETFIL will set this value 
to 127, and if the file is non random will set words 
13-14 of the entry 

NOTE 2 * WORO 7 switches 

bits 0-1 0*file closed 

1 * F m T 0 file open 
2*UNFHTD file ooen 
3*RAND0M file ooen 

bit 2 1»DEFINE FILE done on this device 
bits 3-7 unused 


5.1.3 Device Entry for Error Message File 

Is a link block with a file block and a block block. 
It is 16 words long, the protect code is 322 the file 
name is •FORRUN.DGN* and the logical dataset name is 
'ERR*. The file Itself is contioous with one sixty 
four character messaqe per logical record. 

5.1.4 Device Table Defaults 

The physical device defaults in SDEVTB are as follows* 

Unit Physical Device 
-3 KB (error loagino) 

1 sy 

2 3Y 

3 SY 

4 PR 
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5 LP 

6 K8 

7 SY 

8 81 

The logical unit -3 (logical data set name CMO) Is used 
for error-logging and PDUMP output. The FORTRAN user 
Drogram may also write ASCII cutout to CMO? since the 
compiler does not permit negative Integers as unit 

numbers In ^RITE statements, the unit number must be an 
Integer variable whose value Is -3, 


5,2 I/O Buffer (SI03UF) 

There Is one sixty eight word I/O buffer prefixed by a 
five word prototype link block, a seven word prototype 
file block and a three word prototyoe line block 
header. All I/O uses this *1/0 buffer 1 with the excep- 
tion' of random I/O which does not use the last sixty 
seven words. The global name SlOBUF Is the address of 
DDB Pointer In the link block, 

NOTE* Frror processing also uses this 'I/O buffer' for 
message logging In such a way that any Information In 
the link block or data portion Is not destroyed. 


5,3 I/O Processing Stack Usage 

Each form of I/O requires Information about the Pending 
I/O request. This Information Is most easily transmit- 
ted between routines via the stack. Thus for each form 
of I/O there Is a stack format which is reaul red. The 
stack Is divided Into two logical sections. The fixed 
I/O Information section (which w 1 1 1 be addressed by R4 
while In the I/O routines) and the specific I/O routine 
Information sect 1 on ( wh 1 ch will be addressed by R5 while 
In the I/O routines). 


5,3, t General I/O Information Stack (IQPSTK 19 words 
addressed by R4) 


SAVERS 

callers R5 

3AVER4 

callers R4 

SAVER3 

callers R3 

SAVER2 

cal 1 ers R2 

SAVER1 

cal 1 ers R1 

SAVERP 

cal 1 ers R3 

errflg 

set to one If errors require flushing of the 



PDP-11 Fortran Object Time System, 130-31 1-002-09 PAGE 15 
5, Data Structures 


I/O 1 1st 

ARGLEN length of current I/O Item 1,2,4, 8 or 0 if 
none 

ARGTYP type of current I/O item 1«L0G, 2«I2, 4*14, 

5*»R, 6 *C , 8*D 

ARGPTR addr of current I/O item 

RECEND addr of I/O buffer end -*■ 1 

RECPTP addr of current position in I/O buffer 

RECApR addr of start of I/O buffer 

IOTADR addr of I/O routine $INFR , SOUTFW, %INR, 

SOUTw, SINRR, or SOUTRW 

IOTSW type of I/O 0 sFMTD, 1*uNFMTO, -1*RAND0M 

IOADDR addr of item processing routine SFIO, SUIO 
or SR 10 

IOSW I/O switch Psoutout, l*inout 

FMTADR/RNUdAD/UFNULL 

FMTD I/O addr of format statement 

UNFMJD I/O ■ 0 

RANDOM I/O addr of record number 
UN1TAD address of I/O unit number 


5,3,2 Formatted I/O Stack (IOFSTk 17 words addressed 
by R5) 


PSC&LE current P scaling factor 

DSC ALE current decimal width 

FWIDTH current field width 

REPCNT current conversion specification repeat 

count 

SCNKAR character addressed bv FMTPTR 

CVTRTN current conversion routine address 

CVTSW current conversion type 0*D, -1 »E F G,1»I 0, 

2* A, 3*L 

I NT format processor accumulator 

INTSw state of INT P* empty, 1* pos num, -1 ■ neg 

num 

EXITSW if items cvtd since last record I/O * 0 
GRPCTS highest nesting's unexhausted qrouo reD 

count 

GRPCTI highest nesting's initial group rep count 

GRPCT current group reoeet count 

NPRN2 ptr to lowest nesting's ( in fmt stmt 

NPRNl otr to highest nesting's ( in fmt stmt 

NEST current nesting level 

FMTPTR otr to current position in fmt stmt 


5,3,3 Unformatted I/O Stack ( IOUSTK 1 word addressed 
by R5) 
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IQ9TAT record status for current I/O 

0 ■ not first or last segment 

1 ■ first segment 

2 * last segment 

3 ■ first and last segment 


5,3,4 Random I/O Stack (IORSTK 3 words addressed by 
R5) 

RECMAX number of records in file 

LENMAX number of bytes remaining in this block 

A V A D D R address of associated variable 


5,4 Error Processing Tables 

For the purpose of minimizing eore usage, errors will 
be divide into classes on the basis of functional simi- 
larity^, g. Arith checks, function errors, recoverable 
I/O errors, unrecoverabl e I/O errors, etc) each class 
of error will have an associated maximum allowed occur* 
rence before termination count which may be overridden 
by calling SETERP .The text for each error messaae will 
be in a contiguous file on a disk. If this file is not 
present, just a message number will be logged. 


5,4.1 Error Class Table (SERRC) 

The global name SERRC points to wqro 1 of the first er- 
ror class. The preceedi ng word ( SERRC-2) Contains a 
count of the number* of error classes. Each entry is of 
the forms 


WORD 1 number of messages in this c 1 ass/ 1 oai cal re- 
cord number of first message of class in 
file 

WORD 2 transfer address 

WORD 3 max allowed occurrence count 

-oos « log msg until max 
0 » log msg and ignore 

-1 ■ ignore error (no loo) 

-2 * exit without logging 
•3 » immediate run abort 
WORD 4 actual count (if word 3 pos) 

The error class table also contains a byte vector 
SERRF, i n i t i al i zed to 0's. The I ' t h byte is set to 1 by 
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the error routine *ERR on any occurrence of an error of 
ele9S I# Independently of any other error action taken. 
This byte may be tested and cleared by the 
user-callable subroutine TSTERR, 


5,4,2 Error Transfer Address (entry word two) 

Since It Is desired that the sophisticated user be al- 
lowed to alter what occurs after message logging# a 
transfer address Is provided. For each error message 
class WORD 2 Is the address to whleh control will be 
passed after message logging. The default Is to RTS 
R5. This Implies that the routine which called error 
will be responsible for any further processing. 
Control is passed in such a way that It appears that 
error was not In the calling path. 


5,5 Monitor Switches and Values (SOTSV) See 3,3 

This section contains global run information which is 
not logically a part of any other section. In the 
RSX-liB-C version of the QTS# these task-specific ad- 
dresses are obtained through the monitor call FMT 42. 

address of SDEVTB 
address of SIOBUF 
address of $ERRC 

SNAMC addr of end of subroutine traceback chain 

SSEQC value of current internal seguence number 

S F X S W value for EXIT routine 

0 * user call 

1 * errors have ocurred this run 

2 ■ an error has reached It max allowed eount 

3 * an error whose max allow count word Is -2 has 

cal 1 ed EXIT 

SEPRWK 14 bytes of work area. Used by $ERR if the mes- 
sage file Is not available, also used by SIOSET to 
ereate the logical dataset name for each device. 


5,6 Fortran Listing Device Table 

SFLDEV - Is a user modifiable table which defines For- 
tran listing devices at the cost of one word per 
entry. The device names are packed In RAD50 , The 
current table contains the devices LP# KR and TT, 
The list Is termlnltated by a zero entry. 
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It is used by *I^FP to deter 1 me If a device i 
inq device. 
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a print* 
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6.0 INPUT /OUTPUT 


6,1 I/O Packages 

There Will 3e Three I/O Packages? 

a) Formatted 
b 5 Unformatted 
e5 Random access 


6,1,1 Formatted I/O 

The formatted I/O routines will Interact with the ob- 
ject cope at three entry points; 

1) Initialize I/O* transmit unit and format Informa- 
1 1 on 

25 Transml t / recel ve data 
35 Close out current record 


6,1,2 Unformatted I/O 

The unformatted I/O routines will Interact with the ob- 
ject cooe at three entry points; 

1) Initialize I/O# and transmit unit Information, 

25 Transml t/recel ve data Items, 

35 Close out current record 


6,1,3 Random I/O 

The Random access I/O routines will Interact with the 
object code at four entry points, 

15 Position the specified file at the Indicated re- 
cord, 

25 Verify that the proper record of the file Is posi- 
tioned and Initialize I/O, 

35 Transml t/recel ve data Items, 

45 Close out the current record. 


6.2 


I/O Handlers 
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All Input and output w H 1 1 be accomoHshed through mon i - 
tor calls* but blocking and deblocking may be done in 
the object time routines , 

All I/O will be single buffered (using $I09UF) A wait 
will be issued after each I/O request and execution 
will be suspended until the I/O completes. Thus all 
errors which return through the ERR* return will be 
oreci se. 


6,3 Nondata Operations 

There will be a package to handle nondata operations • 
eg BACKSPACE# REWIND# ENDFILE, 


6,4 Device Dependence 

I/O will be device independent so that the user mav do 
logical assignments at run time usinq monitor SA9SIGN 
commands or by calling the 1 SETF1L ' subroutine. 
However# in the absence of a J ASSIGN certain defaults 
are assumed (See Section 5,1,4), 

The special device -3 is assumed to be the message log- 
ging device. Therefore it must be available for for- 
matted ASCII outeut when required. The user may modify 
the default logginq device number by re-assembl i ng 
SDEVTB. 

The number of Fortran unit numbers is not limited# but 
in order to use numbers greater than eiqht the Fortran 
device table must be expanded. 

The logical dataset name used for Fortran devices will 
correspond to the unit number, except for the error 
longing data set (logical data set name * CMO) 
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6,5 File vSt ructures 


6,5,1 Formatted Input 

Formatted inout will read 'formatted ASCII' records us- 
ino the ,QP£NI and the .READ monitor maeros(all file 
structures which QPENI supports will be allowed). The 
maximum length input record allowed is 133 characters. 
Longer records will be truncated without diagnostic, 
shorter records will be oadded with blanks after delet- 
ino the last character (LF, FF, VT) and the second to 
last character if it is a CR, 


6,5,2 Formatted Outout 

Formatted output will write 'formatted ASCII' records 
using the .OPENO or .OPENC and the ,NRITE monitor ma- 
eros(a!l file structures which ,0pEN0 or , OPENC support 
will be allowed). The maximum length output record al- 
lowed is 133 characters. If the output device is not a 
Fortran listing device , a CR and a LF will be appended 
to the end o* the record. If the output device is a 
Fortran listing device a CR,VT is appended to the end 
of each record and the first character of each record 
is interpreted as a line spacing command. 


6,5,3 Unformatted Input 

Unformatted inout will read 'formatted binary' records 
using the .QPENI and the .READ monitor macros, there 
is no maximum record size. Records will be inout in 
seaments of uo to 63 words length where the first word 
of each segment is a control word( 0«not first or last 
segment, laflrst segment, 2«last segment , 3* f i rst and 
last segment). 


6,5,4 Unformatted Outout 

Unformatted output will write 'formatted binary' re- 
cords using the ,OPENO or , OPENC and , 4RITE monitor ma- 
cros. Records and segments same as for unformatted in- 
cut , 
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6,5,5 Random Input/Output 

Random input/output will re ad/write binary records us- 
ino the ,0PENU and the .BLOCK monitor .macrosC contiqu" 
ous files only). Record length is limited to 32767 
bytes. Random I/O will determine the block number and 
the displacement to the proper record from the users 
DEFINE FILE statement and the I/O statement’s record 
number • 

NOTE* it is reauired that the blocksize for a device 
containing a random access file be a power of two. 


7.0 LANGUAGE 

The language to oe serviced has been specified in 
130-309-001, 

8.0 command language AND structure 


N/A 
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9.0 operating PROCEDURES 

9.1 Putting the Object Time Library on a System 

The complete# current procedure for puttlnq the OTS on 
a system Is fully documented 1" current versions of 
Getting FORTRAN on the Air# OEC-l 1-LFOAA-A-D. 


9,2 Linking Considerations 

The Fortran compiler generates the necessary globals 
for the I/O conversion routines $DCI# SDCO# SICI# *IC0# 
$LCI and $LCQ, Any routines not needed for the specif- 
ic Fortran orogram will be satisfied by the dummy rou- 
tines which follow $FI0 In the library. 

When creating core libraries the conversion routines 
necessary for Program execution must be Included In the 
resident section, I,E, It Is not possible to link a 
specific conversion routine to a non resident section. 
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10.0 PHYSIC4L DESCRIPTION AND ORGANIZATION 

In general# functions which can be added as entry oo* 
Ints into other functions without significantly Incre- 
asing space reauirements will be so combined. It is 
assumed that the linking loader will be capable of re- 
solving all explicit user function and subroutine re- 
quests# as well as requests Implied by them, by a 
search of the QTS library. To facilitate dummy refer- 
ences to certain routines which may not be used In a 
particular run# It is further assumed that the library 
Is searched In a predictable order and that the com- 
piler will flag references to each type of format 
conversion used In the run. 


10,1 Arithmetic Package 

The routines In this section are called In accordance 
with the conventions listed in section 4,8 of 
133-009-001, All routines are position Independent ex- 
cept as noted. In general# OTS routines fall to be po- 
sition- 1 n depen dent primarily because they contain Pol - 
1 sh calls (address constants). 

Type conversions among all data types are supported. 
The conversion routine names are of the form $X Y > syy 
converts an Item of type X on too of the stack to an 
Item of type Y on top of the stack. 

This section consists of the fol lowing routines: 

$IR float the Integer on the top of the stack, (32 
words) 

SIP entry into SIR which first moves the argument down 
two words (filling In with zeros) before executing 
the SIR code, 

SIC Integer to complex conversion. Same entry point as 
SID, 

SDR out the high order words of the double precision 
guanltlv on the too of the stack rounding to real 
format. Call SERR if exponent overflow, (21 
words) 

SRD append a double word of zeros to the real guantltv 
©n the too of the stack, (9 words) 

SRI truncate and fix the real number of the too of the 
stack. Call SERR If result is outside the range 
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-2**15-1 to 2** 1 5- 1 , (45 words) 

$DI entry Into SRI which moves the argument up the 
stack two words (discarding the low order oart) 
Before executing the SRI code. 

$IB Integer to byte conversion. clears the byte at 
1(SP) and returns, (3 words) 

$BI byte to Integer conversion, slgn-extends the byte 
on too of the stack to an integer quantity, 

$BL same entry as *BI, does bvte to logical eonver- 
s 1 on, 

$LB same entry as SIB, does logical to byte eonver- 
s 1 on, 

SADR replace the two real numbers on the top of the 
stack with their sum. No codes will be set. Call 
$ERR on exponent overflow or underflow, (176 
words ) 

SSBR entry In SADR whleh negates the number on toe of 
the stack before doing the add, 

SADD replace the two double precision numbers on the 
top of the stack with their sum. No eodes will be 
set. Call SERR on exponent overflow or underflow, 
(290 wonds) 

SSBD entry In SADD which negates the number on the top 
of the stack before doing the add, 

SADI replace the two Integer nubers on the top of the 
stack with their sum. No codes will be set. Call 
SERR on overflow, (6 words) 

SSBI replace the two Integer numbers on the too of the 
stack with their difference. (2 words) 

SADC replace the two complex numbers on the toe of the 
stack with their sum. Uses SADR to compute (A ♦ 
BI) ♦ (C ♦ DI), This routine Is position depen- 
dent, (44 words) 

SSBC entry In SADC which negates the number on the top 
of the stack before doing the add, 

SADB replace the two bvte quantities on top of the 
stack with their sum. The addition Is done using 
Integer arithmetic? no byte overflow Indications 
are given. 
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$SBB entry In SADB which negates the byte on too of the 
stack before doing the addition. 

$CMR compare cor respondl ng words of the., two Items on 
the stack until a mismatch Is found (If one ex- 
ists). Clear the stack and return the Z and N 
cooes defined In 130-309-001 section 3. 1.2, 2, (23 

words) 

$C*D this is the same as SCMR exceot that the items are 
double Precision, (31 words) 

•SCMI this Is the same as $CMR exceot that the Items are 
Integer. (2 words) 

$CMB compares two 8-bit byte quantities (5 words), 

*C M C compares two complex auant 1 1 i es. Only the Z bit 
return code Is set, since come 1 ex Quantities may 
only be compared for ,EQ, and ,NE. 

®TSR test and flush the real number on top of the stack 
and return to »(R4) If 1 t Is negative, *(R4+2) If 
zero, and e(R4+4) If nos 1 1 1 ve. (14 words) 

®TSD entry in $TSR for double precision, 

®T3I entry in STSR for integer, 

SMLB multiply two byte quantities on top of the stack. 
Si gn-extends bytes to Integers and Jumps to SHLI t 
no error Indications oiven on byte overflew, 

®MLI replace the two Integers on the too of the stack 
with their product. Call SERR if the result is 
not In the range -2**15-1 to 2**15-l,(56 words) 

*MLR replace the two real numbers on the top of the 
stack with their product. Call SERR on exponent 
overflow or underflow, (115 words) 

SMLD replace the two double precision numbers on the 
top of the stack with their product. Call SERR on 
exponent overflow or underflow, (2^4 words) 

SMLC replace the two complex numbers on the too of the 
stack with their product. Uses SMLR, SADR, and 
$SBR, This routine Is position dependent, (64 
words) 

SDVB divide two byte quantities on top of the stack, 
S 1 gn-ext ends bytes to integers and jumps to * D V I f 
no error Indications given on byte overflow. 
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SDV1 replace the two Integers on the top of the stack 
with the Integer part of the ouotlent of the top 
stack Item divided Into the second Item, A zero 

divisor will result In a call to 5EPR, (43 words) 

*DVR replace the two real numbers on the top of the 
stack with their quotient (second/top), A zero 
divisor, exponent overflow or underflow result In 
a call to JFRF, (139 words) 

$DVD replace the two double precision numbers on the 
top of the stack with their quotient, A zero div- 
isor, exponent overflow or underflow result In a 
call to $ERP, (222 words) 

$DVC replace the two complex numbers on the top of the 
stack with their quotient. Uses SaDR, SSBR, $dLR 
and SDVR, This routine Is position dependent, 
(130 words) 

SNGX negate the Integer Item on the too of the stack. 
Call $ERR If result Is 100000 octal, (12 words) 


SNGR 

entry 

in 

$NG1 

for 

real , 

$NGD 

ent ry 

In 

SNGI 

for 

double precision 

$NGB 

entry 

in 

$NGI 

for 

bytes , 

$ngc 

ent ry 

1 n 

$NGI 

for 

comp lex. 


10,2 Fortran Functions 


10,2,1 Absolute Value 

These routines compute the absolute value. 

These routines are called In accordance with the con- 
ventions listed In section 4,7 of 130-009-001, all 
routines In this section with the exception of CABS are 
position independent, 

IABS put the twos complement absolute value of the ar- 
gument In H0, 100000 octal results In a call to 

$ERR. (10 words) 

ABS out the real argument with sign bit set to zero In 
R 0 , R 1 « (S words) 
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DABS put the double precision arqument with the sign 
bit set to zero in R0-R3, C 1 words) 

CABS put the absolute value of the comole* argument In 
R0-R3 * Uses SDVR, $Mi_R, SADR, SFCALL and SORT, 
(74 words) 


10,2,2 Sign 

These routines transfer the s 1 on of the second argument 
to the first argument. 

These routines are called In accordance with the con- 
ventions listed In section 4.7 of 130-809-001, All 
routines In this section are position Independent, 

ISIGN Put the twos complement absolute value of the 
first Integer argument In Rg and complement It If 
the second argument Is negative. Call $ERR If 
first argument Is 100000 octal, (14 words) 

SIGN put the first argument with Its sign bit set to 
agree with the sign of the second argument In 
R0 , R 1 , (11 words) 

DSIGN pgt the first (double precision) Argument with 
Its sign bit set to agree with the sign of the 
second argument In R0-R3, (lb words) 


10.2,3 Type Conversion 

These routines are the Fortran type conversion func- 
tions. 

These routines are called In accordance with the con- 
ventions listed In section 4,7 of 138-009-001, All 
routines In this section with the exception of AINT, 
SNGt, and DBL.E are position dependent, 

AINT truncate the real argument to an Integer and out 
It In R0,Rl, (39 words) 

INT use SRI and return result In R0, (11 words) 

IDINT entry in INT, 

IFIX truncate the real argument using SRI, Eoul val ent 
to INT. Return result In R0. (11 words ) 
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FLOAT use SIR end return the result In Ra.Rl, (3 words 

) 

SNGL put the first two words of the arqument In R0.RI, 
Call SERR If exponent overflow on round. (15 
words) 

OBLE put the argument In RP.R1 and zero R2 and R3, (7 

words) 


10.2.4 M 0 dulo 

These routines perform remaindering 

These routines are called in accordance with the con- 
ventions listed In section 4.7 of 130-B09-001 , All 

routines In this section are position deoendent, 

HOD using SDVI and SHLI compute ARG1-(AR01/ARG2)*ARG2 
and return the results In R0 , (16 words) 

AMOD form a real Integer Q«(ARGt/ARG2) Using SDVR and 
A I NT , Form a real. p«Q*arg2. us 1 no SMLR. For* 
the result R*ARG1-P uslno $3BR and return the re- 
sult In R0.R1, (23 words) 

DMDD this routine Is the same as AMOD except that the 
double precision routines SDVD. SM^d, *S8D» and 
JOINT are used. Results are returned in R0-R3, 
(31 words) 


10.2,5 Positive Difference 

These routines perform positive differencing for in- 
teger and real arguments. 

These routines are called in accordance with the eon- 
verntlons listed In section 4,7 of 13d-fl09-001, All 
routines in this section with the exception of IDIM are 
position dependent. 

IDIM return ARG1-ARG2 in R0 If it is positive* other- 
wise return 0, Call SERR If overflow occurs, (12 
words) 

DIM form ARG1-ARG2 using SS9R. Return it if It Is po- 
sitive* otherwise return zero. (21 words) 
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10.2,6 Minimum/Maximum 

These routines search a variable length argument string 
and select t He minimum or maximum value encountered. 

These routines are called In accordance with the con* 
vent 1 ons listed In section 4.7 of 133-309-301 , All 
routines In this section with the exceotlom of MIN3 and 
MAX0 are position deoendent , 

M I N0 use n-1 comparisons to determine the minimal argu- 
ment. (9 words) 


AMINO use n-1 comparisons and SIR , Return the result 
In R0» Ri • (22 words) 

AmINI use n-1 calls to SCMR to determine the minimal 
argument and return It In R0,R1. (58 words) 

MJN1 entry Into AMINI which uses $RI to fix the final 
result and returns It In RO , 

DMINI use n-1 calls to SCMD to determine the minimal 
argument and return it In R0-R3 . (46 words) 

MAX0 corresponds to MIN0 except that the comparisons 
are made to determine the maximal argument. (9 
woras) 


AMAX0 entry In AM IN0 , corresponds to AMINO exceot that 
the comparisons are made to determine the maximal 
argument * 


AMAX 1 entry In AMINI. corresponds to AMINI exceot that 
the comparisons are made to determine the maximal 
argument . 

MAXI entry in AMINI, corresponds to MINI except that 
the comparisons are made to determine the maximal 
argument • 

DMAX1 entry In DMINI, corresponds to DMIM exceot that 
the comparisons are made to determine the maximal 
argument • 


10.2.7 Random Numbers 

The Fortran random number generator, RAN 

This function generates pseudo- random numbers un- 
iformly distributed between 0,0 and 1,0; the su- 
broutine uses a eongruential random-number algor- 
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ithm. It is called in accordance with the con- 
ventions listed in section 4.7 of 1391-009-001 and 
is position independent. 

It is called with two araumentst 

RANCH* 12) 

where II* 12 is the integer generator base for 
this call ana must be zero for the initial call. 
The real pseudo- random result will be returned in 
R0, R1 , 

II and 12 will be updated to a new generator base dur- 
ing each call and may be saved by the user at any po- 
int. 

Any such saved base may be stored in II and 12 at any 
time to cause the Dseudo- random sequence to begin at 
the Point where II and 12 were saved. 

These numbers have a special form however, and only 
zero or saved values of II, 12 should be stored in II, 
12, 


(45 words) 


An alternate random number subroutine RANDU is orovid- 
ed. It is called with three arguments! 

CALL RANDU (II, 12, F) 

II and 12 are as for RAN, and F is a real variable. 
The real pseudo- random result is returned in Fj the al- 
gorithm used is the same as that for RAN, 

(48 words) 


10,3 Mathematical Function Package 

This section will consist of the following routines! 

10.3,1 Sine/Cosine 

These routines compute real, double precision and com- 
plex sines and cosines. 
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The routines In this section are called 1m accordance 

with the conventions listed In setlon 4.7 of 

133-009-001. All routines In this section are position 

dependent . 

SIN reduce the real argument to be In the ranqe 
(*»P 1/2 , + P I /2 ) radians and expand It In a power 
series to produce a real value for SlN(x), (see 
Hastings, cage 140) Uses $ADF, $mlr, SSBR, $DVR 
and SINTR, (IIS WORDS, FPU»6(j) 

COS use SIN with the argument Increased by PI/2 radi- 
ans • 

OSIN this Is the same as SIN except that double preci- 
sion Is u9ed, (see Hart, page 236) Uses SADD, 
SMLD, SS8D, SDVD and SDINT, (164 WORDS, FPU»96) 

DCOS this Is the same as COS except that double pneel- 
s 1 on Is used, 

CSIN complex sine. Uses SIN, COS, EXP, $FC ALL , 1 ADR , 

SSBR, $DVR and SMLR. 

(122 words) 

CCOS entry in CSIN, Computes complex cosine. 


10,3,2 Arctangent 

These routines compute arctangents for real and double 
Precision arguments. 

The routines In this section are called In accordance 
with the conventions listed In setlon 4,7 of 
130-309-301, All routines In this section are position 
dependent , 

ATAN reduce the real argument to be In the range (0,1) 
and exoand In a power series to be transformed 
Into ARCTAN(x) in real format. Uses SADR, SHLR 
and SDVR, (215 words , FPU® 1 15) 

ATAN2 entry Into ATAN, If the magnitude of ARG1/ARG2 
will be > 2**24 (or ARG2 Is 3) The magnitude of 
the result will be PI/2. Otherwise send 

ARG1/ARG2 to ATAN, 

DATAN this Is the same as AT an except that double pre- 
cision Is used. Uses SAOD, SSBD, SMLD and SDVD. 
(361 WORDS, FPU® 153) 
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DATAN2 entry Into DATAN, If the magnitude of ARG1 /ARG2 
will be > 2**56 (or ARG2 Is 0) The magnitude of 
the result will be PI/2, Otherwise send 
ARG1/ARG2 to DATAN, 


10.3,3 Sauare Roots 

These routines take real, double precision and complex 
square roots. 

The routines in this section are called in accordance 
with the conventions listed in setion 4,7 of 

130-009-001, All routines In this section are position 
dependent , 

SQRT form an initial estimate based on a linear fit and 
use a Newton-Raohson iteration to develop square 
root result. Uses $ ADR and SDVR, Call SERR if 
the argument is less than zero, (47 

words , FPU*34) 

DSQRT this Is the same as SQRT except that double pre- 
cision is used. Uses SADd and SDVD, Call SERR 
If the argument is less than zero, (69 

words, FPU»43) 

CSGRT complex square root. Uses CABS, SFCALL, * ADR, 
SQRT and SDVR, Call SERR on underflow, 

(74 words) 


10,3,4 Powers 

These routines handle all exponentiation. 

The routines EXP, DEXP and CEXP are called In accor- 
dance with the conventions llsteo In section 4,7 of 
130-309-001, All other routines are called in accor- 
dance with the conventions listed In section 4,8 of 
130-009-001. 


All routines in this section are position dependent, 

EXP use e**x»2**l (x*loq2(e) )*e**y, Expand EXP(y) In a 
continued fraction, scale bv l(x*loa2(e) And re- 
turn result in R0,R1, Use Sadr, SDVR, SIR, SMLR, 
$RI and SSBR, Call SERR if exponent is not In the 
ranqe -88,7 to 88,7, (117 words, FPi.j*72) 
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DEXP same as EXP except that the double oreclslon rou- 
tines $ ADD# SDVD# SID, $MLD# SDI and $880 are 
used, (210 words# FPU*1 10) 

CEXP complex exeotentlal, Uses SIN# SFCALL# SML.R# 
SSBR# COS and SMLC, 

(36 words) 

SPWII use $HLI exponent times. Integer exponent (F) Is 
PSP, Integer base (B) Is at 2(SP), Replaces the 
with Integer result of B**E, Call $ERP If base 
eauals zero and exponent Is less than or equal to 
zero. Return 3 If exponent Is less than 0, (64 

words# EIS«48) 

SPWKI use SMLR to do successive squarings and multipli- 
cations by the base. Use SDVR If exponent Is 
less than zero. Call $ERR If base eauals zero 

and exponent Is less than or equal to zero, (89 

words# FPU»36) 

SPWDI same as SPWRI except that $M|_D and $0VD are used. 
(129 words# FPU®36) 

SPWCI same as SPWDI except that SmLC and $DVC are used, 
(129 words) 

$PWRR to raise a real to a real Power call ALQG# $MLR# 
and EXP, Use $ F C A L L to call ALOG and EXP, Call 

$ERR If base Is less than op equal to zero and 

the exPontent Is not equal to zero, (57 words) 

SPWDD to raise a double to a double power use DLOG# 
SMLD# and DEXP. Use $FC ALL to call DLOG and 

DEXP, Call SERR If base Is less than or eaual to 
zero and the exponent Is not equal to zero, (86 
words) 

SPWRD entry Into SPWDD, Append a double word of 0 to 
the base before doing to $PwDD, 

SRWDR entry Into SPWDD, Append a double word of 0 to 
the exponent before qolna to SPWDD, 


10,3.5 Logarithms 

These routines compute natural and common logarithms of 
real# double precision and complex quantities. 

The routines in this section are called in accordance 
with the conventions listed In setlon 4,7 of 



PDP-11 Fortran Object Time System* 130-31 1-302-09 PAGE 35 
10. Physical Description and Organization 


130-309-001, A|1 routines In this section are position 

dependent , 

ALOG expand fractional part In argument In chebyshev 
polynomial end add 1 n (2) *exPonent part of argument 
to form result. Call $ERR If argument Is less 
than or eaual to zero. Uses SADR* SDVR* SSBR* 
$MUR and SIR, (120 words, FPU-59) 

DLOG same as ALOG except that double precision Is used. 
Uses SADD, SDVD* SS8D, $MLD and SID, (192 
words* FPU*89) 

ALOG10 entry In ALOG, Returns !n(10), 

DL0G1E entry In DLOG, Returns ln(10), 

CLOG the complex logarithm function. Uses ATAN2, CABS* 
SFCALL and ALOG. 

(38 words) 


10,4 INPUT/OUTPUT CONVERSION ROUTINES 


10,4,1 I/Q Initialization Routines 


10.4,1,1 Formatted I/O 

$ IOF I has two entry ool nts, (27 words) 

$ I N p I Initialize formatted Input 

Set IQSw for Input, Set IOaDDR to SFIO, Set 10- 
TADR to $ I NFR , Then call SI0FI1 to complete the 
allocation of IOPSTK. Upon return allocate 
IOFSTK and call SIQFI3 to read the first record* 
set Inout buffer pointers and return to caller, 

SQUTFI Initialize formatted output 

Set I0S4 for output. Set IOADDR to $FI0, Set 
ICTADR to SOUTFW, Then call SIOFll to complete 
the allocation of IOPSTK. Ueon return allocate 
IOFSTK and call SIUFI3 to Initialize output* set 
output buffer pointers and return to caller. 
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10.4.1.2 Unformatted I/O 

SIOUI has two entry ooints,(32 words) 

$ I N I - initialize unformatted input 

Same as SlNFI escept IOADDR is set to $UI0# IQTADR 
is set to $INP and I0USTK is allocated. 

SOUTI - initialize unformatted outout 

Same as 50UTFI except IOADDR is set to SUIO# 10- 
TADR is set to SOUTH and IOUSTK is allocated, 

10.4.1.3 Random I/O 

$I0RI has two entry points, (28 words) 

$ I NR I • initialize random input 

Same as SINFI except IOADDR is set to SRIO# 10- 

TADR is set to SINRR and IORST* is allocated, 

SQUTRI - initialize random output 

Same as SOUTFI except IOADDR is set to SRIO# 10- 

TADR is set to SQUTRW and IORSTK is allocated. 


10.4,2 I/O Finalize Routines 

$I0F • called to do I/O finalization saves R4 and ad- 
dress I/O stacks then Jumps to inFP, SIQUD or 
SIORD (71 words) 


10.4.2.1 Formatted I/O 

IOFD - entry in SIOF, calls SFIO with no more items to 
process upon return free stack space and return 
via JMP e(R4)+ 


10.4,2.2 Unformatted I/O 

SIOUD » if input# call $ INR to flush the rest of the 
segments of the record, if outout# finalize and 
call SOUTW to outout the last segment. Jump to 
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SIOFX to free stack space and return, (17 words) 


13.4,2,3 Random I/O 

SIORD - If o u t Du 1 * pad rest of seoment(s) with zero, 
call -I0UTRW to do output. If Input* Ignore the 
rest of the segment(s)* set associated variable 
ana J u m p to $ 1 0 F X to free stack space and return, 
(25 words) 


10.4,3 Item Processing Routines 


10.4,3.1 Formatted I/O - entry $FI0 (673 words) 

$FIQ If Initial call Insure that first character Is (, 
initialize scan of format and go to LPARN» else go 
to Place of last exit (REENT), 

NOTE: formats must be character strinqs beginning 
with a ( and ending with a ). Therefore* If a 
read In format is to be used, the user must take 
care to insure that each character Is read into 
the next byte of the arrav with no qaps between 
(eg reading a format into array I when I is a two 
word integer array will not work properly,) 

NOTE also: it is the format specification which 
governs conversions. The item type Is not checked 
for compatibility except in the case of A conver- 
sion, (see SICA* SOCA) 

9C AN accumulate any signed number and return to caller. 

FCONT insure that next character is * T / ) or 1 , if 
so go to COMMA, TSPEC* SLASH, RPARN, QUOTE, 
otherwise go to BADSYN, 

FC0NT1 - insure that next format character is * ) ( / ' 
A D E F G H I L 0 P T or X. if so go to comma, 
RPARN, LPARN, SLASH* QUOTE* ASPEC, DSPEC* E3PEC, 
FSPEC* GSPFD* HSPEC* ISPEC, LSfcPC, OSPEC* PFACT* 
TSPEC* XSPEC. otherwise go to BADSYN. 

FC0NT2 - same as FCQNT1 exceot * and ( are not allowed, 

COMMA - insure that no numeric oreceeded. Call SCAN 
and go to FC0NT2, 
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PFACT - insgre that numeric preeeeded, Save number as 
P scale. Call SCAN and go t 0 FC0MT1, 

TSPEC - Insure that no numeric preeeeded, Call SCAN, 
Set record pointer to position specified# checking 
that it is in record bounds. Go to FCONT, 

XSPEC - if no preceeding numeric# set to one. If 
preeeeding numeric is less than one call error, 
set record pointer, check record bounds# call SCAN 
and go to FC0NT1, 

HSPEC - Insure that oreceedi ng numeric was present and 
greater than zero. Check if specification will 
overflow record (if so # error), Otherwise move 
specified number of characters to record from for- 
mat (if outout) or vice versa (if input). Call 
SCAN and oo to FC0NT1, A n y character which the 
monitor a 1 1 • v t to be ^ e r w i - *cr*ett<?‘ f F f t t k t f‘ 9 
is v e 1 i , 

SLASH — 1 r. 3 *» r A t »*• & t nw nf C — i i , j m r w 

or iwu|#« t: fir: *• « zr /fit- last rrccrd, Crl 1 
SCAN and oo to FC0NT1, 

QUOTE - Insure that no numeric preeeeded, if input 
move characters to format from record until an un- 
paired quote is found. If Output# move characters 
to record from format until an unoaired quote is 
found movino to record one Quote of each pair en- 
countered , Check reeord overflow while moving is 
occuring. Call SCAN and go to FC0NT1 any char- 
acter which the monitor allows to be reed in for- 
matted ASCII mode is valid, 

LPARN - If no oreceedi ng numeric set to one. If less 
than zero call error. If this is an initializing 
call (no nesting) Set no evts done switch# set in- 
it switch off. If this is highest level nest save 
format pointer location# save group count# set no 
evts done switch# set current group count and set 
new nesting. If this is lowest (second) Level 
nest save unexhausted higher level group count# 
set current group count# set new nesting. Call 
SCAN and go to FC0NT2 . 

RpARN - Insure that mo numeric preeeeds. If this is 
outer ) (no nesting) check if more I/O list items. 
If not call SOUTFW (if output) and exit to main. 
If more# test evts done switch. If off# call er- 
ror, Otherwise call SINFP or SOUTFW, Determine 
if there was any nesting. If not# set uo to go 
repeat entire format. If it was# set uo to repeat 
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last nesting group. In either ease reset evts 
done switch. Call SCAN and go to FC0NT1, If this 
is highest level nesting 5 check if group eount is 
exhausted. If not, set up to repeat grouo. If 
so, pop a nesting level. In either ease call 
nsean and go to FC0NT1, If this is lowest level 
nesting ) Check if group count is exhausted. If 
not set up to repeat group. If so pop a level re- 
set current group eount with highest level 
nesting's remaining group count. In either ease 
eall SCAN and go to FCQNT1, 

DSPEC, ESPEC, FSPEC, GSPEC if no numerie proceeds set to 
one. Insure that preeeeding numeric is greater 
than zero. Save it as repetition eount. Call 
SCAN, Must return positive non zero number to 
save as field width. Insure that next character 
is call SCAN, Must be non-negative returned 

to save as D specification Set address of appro- 
priate conversion routine. Go to FMT, 

ASPEC, ISPEC, LSPEC, OSPEC if no numeric oreeeeda set 
to one. Save as repeat count. Call SCAN, Must 
return positive nonzero number for field width. 
Set address of appropriate conversion routine. Go 
to FMT, 

FMT check if more I/O list items. If not call SOUTFW 
(if output) and return to main. If so push re- 
guired values onto stack depending upon conversion 
specification and I/O type. Call conversion rou- 
tine, Poo reouired values from stack depending 
upon conversion specification and I/O type. Check 
if any conversion error. Return to main to get 
next item or finalize call, 

REENT reenter here check if repeat count is exhausted. 
If not go to FMT, If so set cvt done switch. Go 
to FCONT, 

ICA do input A conversion, 

OCA do output A conversion, 

NOTE: For both input and output A conversion, the 
bvtes transferred is determined by the item size 
and not the format specification Otherwise a 
conversion will occur as described in the Fortran 
standard( 1 ,e. Left justification into item with 
trailing blanks and left most eharacterss of item 
into record if item size greater that specified 
width. Right most characters from record into 
item and right Justification into record from item 
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If specified width greater than item size,) 


10.4,3.2 Unformatted I/O - entry *UI0. (58 words) 

Input if end of record call error(short record). If 
end of segment call SINR, Else move number of 
bvtes required from record Into Item and return to 
caller. 

Output If Item will not fit In segment call SOUTW, 
Move Item to record and return to caller. 


10.4,3.3 Random I/O - entry SRIO, (52 words) 

If end of record call error (short record). If end 
of segment call SINRR/SOUTRW , Else transfer bytes 
from Item to reeordCor vice versa) one at a time# 
checking for end of segment or end of record, 
UPon completion return to caller. 


10.4,4 Item Transmission Routines (for all I/O types) 

SIOARG - has 8 entry points. ( 181 words) 

#I0B accept list of addresses for one byte logical var- 
iables and call *FI0# $UI0# or *RI0 for each Item 
depending on I/O type, 

*101 same as *108 except Items are one word Integer 
variable pointers, 

SIOL same entry as $101 exeeot Items are one word logi- 
cal variable pointers, 

*I0J same as SIQB except Items are two word integer 
variable pointers, 

$I0R same as SI0B except that items are two word real 
variable pointers, 

*I0C same as SIQB except Items are four word complex 
variable Pointers, 

*I0D same as SI0B except Items are four word double 
prec 1 si on var 1 abl e pointers. 
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SIOA accept list of array pointers determine type of 
each array and call JFIO, $UI0# or fRIO for each 
element of each array. 

Upon completion of Item transmission remove list of 
Items from stack and return via Jmp e(R4)+ 


10,4,5 Logical and Physical I/O Routines 
Note each entry oalr Is the same core location 


10,4,5.1 Formatted Logical I/O Routine 
Entry SINFR# SOUTFW - (240 words) 

SINFR * If first call of read statement# determine 

1) If device number Is valid 

2) If file Is ooen (if not call SOPEN) 

3) If file Is open Is It opened for formatted I/O, 
If not error. If formatted output cell SCLOSE# 
and SOPEN. 

on any cal 1 

1) call SREAD 

2) evaluate error returns 

3) set buffer pointers on stack 

4) remove CP# LF# VT# FF, If present and oad 
buffer with blanks to standard size 

5) return via RTS PC 

SQUTFw - If first call of write statement 

make determinations of file status similar to 
those made for Input however# do not write a re- 
cord Just set buffer pointers on stack and return, 

on non-f 1 rst cal 1 

1) determine If print file. If so generate proper 
1 1 ne spac 1 ng. 

2) call SWRITE after appending CRLF# or CRVT 

3) evaluate error returns 

4) set buffer pointers on stack 

5) return via RTS PC 
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10.4,5,2 Unformatted Logical I/O Routine 
entry SINR, SOUTW - (127 words) 

$INR • if first segment call make same determinations 
as for formatted Input 

On any call 

1) call SRE4D 

2) evaluate error returns 

3) set buffer pointers and record control word on 
stack 

A) return via RTS PC 

SOUTW - If first segment call make device status deter- 
minations 

on f 1 rat cal 1 

do not call SWRITE, Just set buffer pointers on 
staek and return, 

on non-first call 

1) out record control word at start of record 

2) call SWRITE 

3) evaluate error returns 

4) set buffer pointers on staek 

5) return via RTS PC 


10,4,5,3 Random Logical I/O Routine 
entry SINRR, SOUTRW - (168 words) 

On first cell, does SDEVTB checks and calls $QPEN,1f 
the file Is not already open. If the SOPEN falls be- 
cause the file does not exist, another SQPEN Is at- 
tempted with the DVHOPN byte set to request allocation 
of a contiguous file. If this SOPEN falls, $ERR Is 
called, 

SINRR - If first segment call 

1) make device status determinations 

2) calculate number of block desired 

3) check If block In core. If not, call SREAD. 
SREAD Is not called If a full-block WRITE Is being 
done. For a full-block WRITE, SGET Is Instead 
called to obtain a monitor core buffer* no physi- 
cal I/O Is done. 
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4) evaluate error returns 

5) set buffer pointers, associated variable ad" 
dress, and length of record (not segment) on 
steek, 

6) return v 1 a RTS PC 
on non"f 1 rst call 

1) Increment block number 

2) call SREAO, unless full-block WRITE 

3) evaluate error returns 

4) set buffer pointers on stack 

5) return via RTS PC 

SQUTRh - If first segment call 
same as SINRR 
on non-f 1 rst call 

1) call SWRITE 

2) If not last call same as SINRR 

3) If last eal 1 Just return 


10,4,5.4 SFIMD (for random I/O) 

This routine does not position the disk mechanism, but 
It does logically FIND the record by updating the asso- 
ciated variable, FIND Is provided only for compatibil- 
ity Purposes! It’s use Is not recommended, (33 words) 


10,4,5.5 Physical I/O Routine SOPEN 

SOPEN - does , INIT and .OPEN (I, 0, U or C) of files 
for all I/O types and does error checking. In ad- 
dition If SETFIL or SINRR/SOUTRW set Indications 
that a contiguous file Is to be allocated It is 
done by SOPEN. 

Returns via RTS PC, (145 words) 


10.4.5,6 Physical I/O Routine SCLOSE 

SCL08E - does .CLOSE and , RLSE of files for all I/O 
types jel ears various device status words and do- 
1 nters. 
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Returns via RTS PC, (34 words) 


10.4.5.7 Physical I/O Routine SREAD 

SREAD - performs Input reading and error checking for 
all I/O modes. 

1) for formatted I/O does formatted ASCII normal 
mode reading, 

2) for unformatted I/O does formatted binary nor- 
mal mode reading, 

3) for random I/O does block transfers. 

Returns via RTS PC, (95 words) 


10.4.5,8 Physical I/O Routine SWRITE 

SWRITE • entry In SREAD, Pushes a flag to Indicate a 
write before executing the SREAD eode. 


10.4,5,9 Physical I/O Routine $G£T 

SGET - entry In SREAD, Used bv random-access I/O to 
get a monitor buffer for full-block WRITES# for 
which no Prior SREAD Is required. 


10.4.6 Conversion Routines 


10.4,6.1 Real and Double Precision 

These routines aecept field pointers and conversion 
type codes from SFIO and convert a floating point data 
item from a character string 

SDCI convert an Input Item according to D format. (384 
words) 

Calling Sequence * 

push address of field start 

push field width 

push D part of W,D 

push P format scale factor 
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JSR PC# SDCI 

Will return a four word floating point result on too of 
the stack. This and all following I/O conversion rou- 
tines return with the C bit elear unless there was a 
conversion error# In whleh case It Is set. 

$RCI entry In SDCI for E# F or G format, Returns a two 
word result on top of the stack. 

SDCQ convert an output item according to 0 format, 
(456 words) 

Calling Seauencei 

push address of field start 
push f 1 el d w 1 dt h 
push D part of W,D 
push P format scale. 

Push value to be converted, 

JSR PC # SDCQ 


In the 

event 

of 

an output conversion error $EC0# SFCO# 

SGCO# 

and 


SDCQ 

wl 1 1 

return 

a 

field of 

****** , 
above. 


p ***** as 

wel 1 

as the C 

bit 

ment 1 oned 

SFCQ convert 

an 

output 

1 1 em 

accordl ng 

to 

F format. 


This is an entry point In SDCQ and has the same 
calling seouence, 

SGCO convert an output Item according to the G format 
rules, (see ANSI standard x3, 9-1966) This Is an 
entry point in SDCQ and has the same calling se- 
quence, 

SECQ convert an output item according to E format. 
This Is an entry point In SDCO and has the same 
calling sequence. 


10.4,6,2 Integer 

These routines act on I and H format requests, 

SICI accept field pointers from $FIQ and convert an I 
format inout Item to an integer, (98 words) 

Cal 1 1 no Seauencei 

push address of field start 
push field width 
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JSR PC, SICI 

Will return a one word Integer on too of the stack. 

SOCI this Is an entry In SICI which treats the external 
field as octal datajthe data Item Is treated as a 
1 6— b 1 1 unsigned quantity, 

SICO convert an output Item according to I format, (93 
words) 

Calling Seogence* 

push address of field start 
push field width 
push data Item 
JSR PC, SICO 

In the event of an output conversion error $IC0 and 

$0CQ will return a field of a****,,,,**** as well as 

the C bit mentioned above, 

$0C0 this Is an entry In SICO which converts the Inter- 
nal dataum Into an octal character string. 


10,4,6,3 Logical 

This routine codes and decodes logical true/felse I/O 
requests, 

SLCI accept field pointers from $FI0 and convert a log- 
ical field to a binary value, (31 words) 

Calling Sequence is the same as $ICI, 

.TRUE, * -i, .FALSE, * 0, 

*LC0 covert a data Item according to L format. (31 
words) 

Calling sequence Is the same as for SICO, 

10,5 Miscellaneous Routines 

10.5,1 Subscript Calculations ($SBS and S3BX) 
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This routine computes and verifies the address of an 
array element. Called In the Polish mode It receives 
the address of the ADB for the array as the next Item 
In the operator list, (see 130-309-301 3. 1,2, 6 for a 
description of the ADB) (49 words, EIS«3'5) 

SSBS1 single aubscrlot. Return A+(l-i)*s in R0, 

SSBS2 double aubscrlot. Return A+( 1-1+ ( J-l ) *D1 ) *S In 
R0, 

SSBS3 triple subscript. Return 

Af(I-lf(J-l)*DH-(K«l)*Dl*D2)*S In R«, 

A eheck Is always made that subscripts are positive In- 
teger auantltles. If the /CK switch Is used durlnq the 
compilation # the compiler generates Polish calls 
SSBX 1 , $SBX2,SSBX3» The SSRXn entrv points check that 
the actual subscripts are less than or eaual to the 
maximum given In the ADB, $ERR Is called If the sub- 
script Is out of bounds(65 words# EIS«515, 


10,5,2 Deleted 


10.5,3 Object Time Error Routine (SERR/SERRA 274 
words) 

*EPR » calling sequence 

JSR R5,$ERR 
BR ANY 

,ByTE error class number 
.BYTE error number within class 

NOTE* There Is 9R after the JSR R5# but It need 
NOT be to the location following the argument 
llstf the call Is not a standard Fortran call, 

SERR A - calling seauence 

NOV X#R0 
JSR R5#$ERRA 

X | .BYTE error class number 

.BYTE error number within class 

Determines if the message number and class number are 
valid. If not changes them Into class zero message 
zero (Invalid message number). Set s byte In error vec- 
tor SERRF for the class to 1, 
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Then determines If this Is an Immediate abort error 
(maximum lod count«-3), If so Issues a fatal monitor 
diagnostic (F030) with the error class amd error number 
(3 octal characters each) to be displayed. 

If this Is a no loo and exit error (maximum log count 
»-2) SExSw is set to three and SEXIT Is called. 

If this Is a no log and Ignore error (maximum log 
eount»-l) control Is transferred to the location soecl- 
fled In the transfer address word. 

Otherwise# the device table (SDEVTB) Is checked to de- 
termine If a logging device exists and Is available for 
formatted ASCII output (1,e, Is already oeen for for- 
matted ASCII output or Is closed and no define file has 
been done* and Is not an actual or potential contiguous 
file) 

Monitor diagnostic 1353 Is Issued If the logging device 
Is not available. The additional Information Is the 
class and error number In octal ASCII, 

Otherwise the existence of the message contiguous file 
Is determined. If the file exists the appropriate 
block Is read and the proper message within that block 
Is written (formatted# ASCII# dump mode) on the logging 
dev 1 ee. 

Monitor diagnostic 1352 Is Issued If an end of file Is 
detected on the logging devlee. 

NOTE? The format of the message file Is one sixty four 
character ASCII message per logical record. Each mes- 
sage of the form 

FORTcccnnn - message text 

Where ccc Is the class number In decimal ASCII and nnn 
Is the message number In decimal ASCII, The entire 
message Is sixty four characters or less Including two 
characters at the beginning and end of the text which 
will be over 1 ayed with a CR# LF. 

NOTE also: SRANDM (10,2,12) will be used to determine 
the physical block and displacement based on the block 
size of the devlee# the record number of the start of 
the error class (from SEPRC 5,4,1) and the error 
number. 


If no message file exists 
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'FORTcccnnn* Is written on the logging device, Uslnq 
the $ERRwk area to format the message. After writing, 
the routine STRCBK Is called to write a subroutine 
trace back (if available). 

Error routine end up 

The error class maximum loa count word Is checked for 
zero (log message and Ignore), If non zero the loq 
eount Is Incremented by one. If It Is then eaual to 
the maximum log count word, SEXSW is set to two and 
SEXIT Is called, else SEXSW 1$ set to one. The error 
routine now exits via the transfer address word In such 
a way that It appears that the routine which called er- 
ror actually called the routine whose location Is In 
the transfer address word. The normal contents of the 
transfer address word Is the global SRTS which is the 
address In the error routine of an RTS R5 Instruction, 
Thus the error routine will normally return to the cal- 
ling program. 




* 


* 


10,5,3,1 Traceback (95 words) 

STRCBk - calling sequence 
R0-R1,R4 unused 

R2 ■ address of DDB pointer followed by a four 
word line buffer header 

R3 * set to one if EOF on writing, else cleared 
R5 * address of fourteen byte buffer (SERRWK) 

JSR PC, STRCBK 


NAME SEQ 

nnnnnn SSSSSS 

nnnnnn SSSSSS 


t 


t 






MAIN, 


SSSSSS 


Writing Is formatted, ASCII, dump mode. No abnormal 
condl t 1 ons are checked except end of file In which case 
a one Is returned in R3, 



10,5,3,2 Name Ootlon ($nam 24 words, FPU»35) 

$NAM - Is a routine Invoked at Main program and su- 
broutine entrance. It adds the current subrou- 
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tines name entry to the end of the subroutine name 
chain (in SNAMC), 

In the 11/45 FPULIB version of the OTS, SNAM 
checks for entry to the MAIN program. On entry to 
MAIN* the Floating Point status register is ini- 
tialized for floating Point interrupts and an in- 
terrupt vector for FPP interrupts is established 
througn a monitor call, 

SRET - is the complement to S^am. it removes the cur- 
rent subroutine entry from the end of the subrou- 
tine name chain at subroutine return. 


10.5.3,3 Sequence Ootion (SSEQ 3 words) 

$8EQ - saves the current statements sequence number in 
SSfcQC, 


10.5.3,4 11/45 Floating Point Error Routine SFPERR 

SFPERR » entry point for any Floating Point Processor 
interrupts. Checks FPP error code and calls SERRA 
with appropriate parameter. In the case of FPP 
underflow interrupts, picks up the instruction 
causing the underflow, extracts accumulator field, 
and clears the appropriate floating accumulator to 
0.0 (FPLU43 words). 


10.5,4 Exit Routine (14 words) 

SEXIT (EXIT) - this routine is called by the user or by 
the STOP statement or bv error processing routines 
to do Job termination, SEXIT calls the subroutine 
SCLSUP to cycle through SDEVTB and close all files 
ooened by OTS, If SEXIT was not called by error 
processing, it exits to the monitor via EMT 60, 
Otherwise, it examines SEXSW and uses the monitor 
diagnostic facility to log a message before the 
EMT 60, The di agnos t 1c is informational (1351) 
and the value displayed with it 1s- 

000001 if $EXS*i * 2 (error reached maximum count) 
000002 if SEXSW * 3 (error was no log and call ex- 
it) 

Calling Sequence 
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JSR R5,$EXIT (EXIT) 
Return to monitor 
EMj 60 


10.5.5 Rewind/End File CSRWIND/*ENDFL 33 words) 

SRWIND/SENDFU - determine If device Is open. If not 
return, else cal) ICLOSE then return. Called In 
the polish mode with the device number on the too 
of the stack. 

Return via JMP e(R4)+ 


10,5,6 Backspace (S8CKSP B3 words) 

SBCKSP - will call SCLOSE , SOPEN and SREAO, It will 
read n-i records Drocessed before the close. If 
the device Is closed or 14 ooen for random I/O no 
action Is taken. Backspace Is undefined on a 
non-file structured device, 

SBCKSp is ealled In the polish mode with the device 
number on the top of the stack. 

Return via JMP s(R4)+ 


10.5.7 Define File (SDEFIL 39 words) 

SDEFIL - does random I/O device table (SOEVTB) entry 
Initialization, If a previous DEFINE FILE has oc- 
cur ea for this device number and no SCLOSE has oc- 
curred, this DEFINE FILE Is Ignored, 

Calling Seauenee 

MOV X,R4 
JMP • ( R4 ) + 

XI SDEFIL 

address of device number 

address of maximum number of records 

address of record length 

address of associated variable 
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Return via JMP »(R4)+ 


10.5.8 SETFIL Subroutine (140 words) 

SETFIL - Is a user callable subroutine whleh allows the 
user to override (at run t1m e ) the default or pre- 
viously specified values In the device table entry 
for a soeelfle device number. 

Calling Seauenee 

JSR R5, SETFIL 
BP NEXT 

address of device number (Integer) 
address of file name (ten character ASCII string) 
address of error value variable (Integer) 
address of Dhvslcal device mnemonic (three char- 
acter ASCII string) 
address of unit number (Integer) 
address of UIC (Integer) 
adoress of protect code (Integer) 
address of allocate file switch (Integer) 
address of record length to allocate (Integer) 
address of number of records to allocate (Integer) 
NEXT * . 

NoTEJl) Any trailing sequence of arguments may be omit- 
ted. 

2) If the device Is open or the device number Is 
Invalid no action Is performed, 

3) If the file name argument Is less than 10 char- 
acters long, It must be In .ASCIZ format? the com- 
piler generates .ASCIZ for Hollerith literals ap- 
pearing as subroutine arguments. 

The error value variable Is used for two purposes, 1) 
To Indicate errors In SETFIL processing and 2) when an 
ERR" exit Is taken from I/O processing to Indicate what 
type of I/O error occurred. The only error so Indlcat* 
ed bv SETFIL Is error value variable * -1 whleh means 
that the allocate file switch was one and two arguments 
did not follow. 

The allocate file switch Is supplied to allow the user 
to Indicate that he wishes a contiguous file to be al- 
located at file open time. 

Switch values* 



PDP-11 Fortran Objeet Time System# 130-31 1-302-39 PAGE 53 
10* Physical Description and Organization 


2 ■ allocate a contiguous file for random I/O in which 

case the DEFINE FILE statement will set the record 
length and the number of records in the file, 

1 * allocate a contiguous file for non-random I/O, In 

which case the followina two arguments are used to 
set the record length and the number of records in 
the file, 

(see 5,1,2 note 1) 

SETFIl returns via RTS R5 


10,5,9 3ETERR Subroutine (26 words) 

SETERR • is a user callable subroutine which allows the 
user to override (at run time) the default maximum 
count for any class of error (except classes 0#8), 

Calling Sequence 

JSR R5,SETERR 
BR NEXT 

address of error class number 

address of override maximum count value 

NEXT ■ . 

If the class number Is not valid ne action is per- 
f ormeg. 

All values of the maximum count are allowed# however 
values less than minus three are set to minus three, 
(see 5,4,1) 


10.5,10 Stoo (IP words) 

SSTQP • generates a monitor diagnostic informational 
message (1350) along with the octal value supolied 
on the STOP statement and then calls SEXIT, 

$STQP is called in the polish mode. Uoon entry R4 do- 
ints to the address of the stop octal value. 

Returns via JMP e(R4)+, 


10,5,11 Pause (15 words) 
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SPAUSE » generates a monitor diagnostic action required 
message (A005) along with the octal value supplied 
on the PAUSE statement. The user must respond to 
the reouest for action. If he reolles CONTINUE, 
SPAUSE returns via JMP »(R4)+ 

SPAUSE Is called In the polish mode. Upon entry R4 po- 
ints to the address of the Pause octal value. 


10.5,12 OTS I/O Support Function Routines 
SFNDEV - calling sequence 
R0 * number of device 

Rl * address of SDEVTB entry (returned) 

R2-R5 * unused 
JSR PC, SFNDEV 

Uses the device number In R0 to obtain the address of 
the SDEVTB entry for that device and returns the ad- 
dress In Rl, If invalid device number return zero in 
Rl. 

(16 words) 


SIOSET - calling sequence 
R0 » number of device 

Rl ■ address of SDEVTB entry for device num In R0 
R2 * address of SIOBUF (or equivalent) 

R3 Is destroyed accross the call 
R4«»R5 unused 
JSR PC, SIOSET 

Sets up the file block and link block addressed by R2 
with the device table entry Information addressed by Rl 
and the device number In R0, 

(55 words) 


SRANOM - calling sequence 

push record length 
push record num-1 
push block size 
JSR PC,SRANDH 
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Uses double Precision multiplication to calculate the 
block number and clock displacement for direct access 
I/O or contiguous file allocation on return the stack 
Is modified. Record lenoth Is replaced by block num# 
record num-1 Is replaced by block dl'sol acement # and 
block size Is left unmodified, 

NQTEJ This routine requires that block size be a cower 
of two. 

(48 words) 


SCLSUP • calling sequence 
JSR PC# SCLSUP 

Cycles through all entries of SDEvTB closing any files 
which are ooen. Called by H'XIT at program end and by 
the RUN subroutine, 

(29 words) 


10.5.13 TSTERR Subroutine (16 words) 

TSTERP Is a user callable subroutine which allows the 
user to test for occurrence of run-time errors, 

CALL TSTERR(I#J) 

tests and resets the error bvte for class I In the er- 
ror class table ($ERRF( I) ) .Returns J*1 If an error In 
error class I has occurredj returns J*2 otherwise. The 
error flag oyte for class I Is reset to 0, 


10,5.14 SSWTCH Subroutine (20 words) 

SSWTCH Is a user callable subroutine which allows the 
user program to read the console switch reqlster, 

CALL SS*TCH(I#J) 

tests the I'th bit of the console switch real ster and 
returns 

J * 1 If bit I * 1 (UP) 

J ■ 2 If bit I ■ 0 (DOWN) 
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J is not modified if I Is out of range: no error Indi- 
cations are given. 


10,5,15 DATE and TIME Subroutines (30 words) 

DATE and TIME are entry points in the module STIMnn, 

DATE Is a user callable subroutine which obtains the 
date as an ASCII strlnq from the DOS monitor, 

CALL DATE(A) 

returns the date as a 9-byte ASCII strino In A* In the 
form 

19— JUN— 72 

Uses the DOS DATE/TIME conversion, EMT 66, 


TIME is a user callable subroutine which obtains the 
time In either ASCII or binary form, 

CALL TIME(A) 

returns an 8-bvte ASCII string In A reoresentlng the 
current time In the form HHjMMtSS , Uses DOS EMT 66, 

CALL TIME (11*12) 

returns the current time in clock ticks in 11*12, High 
order 15 bits In II* low order 15 bits in 12, Uses DOS 
EMT 41 to obtain time from the System Vector Table, 

CALL TIME ( a* 1 1 * 12) 

converts the clock tick time in II* 12 to an 8-byte AS- 
CII string In A, Uses DOS EMT 66, 


10,5,16 Program Overlays: LINK, RETURN (150 words) 

The entry points LINK and RETURN in the LINK subroutine 
support the PDP-11 FORTRAN program overlay facility. 
The call forms are: 

CALL LINK ( * dev : f i 1 e.ext C u 1 cl ' ) 


and 


CALL RETURN 



PDP-11 Fortran Object Time System, 1 30-31 1 -002-P9 PAGE 57 
10. Physical Description and Organization 


The argument to LINK specifies the name of an overlay 
file to be loaded* DOS defaults apply If any portions 
of the argument string are omitted. The argument 
string may contain a maximum of 25 characters, and It 
must be In .ASCIZ format (a 0 byte terminating the 
stri ng ) , 

If the entry to LINK occurs in the resident section, 
R0-R5 are saved In local storage in LINK, A subsequent 
CALL RETURN restores these saved registers. 

The heao of the subroutine name chain SNAMC Is reset to 
B, LINK uses EMT’s ,CSI1 and ,C3I2 to scan the arau- 
ment and set up the file block. It then calls the DOS 
RUN EMT to unconditionally move the stack and load the 
requested overlay. If any errors occur, Dns fatal er- 
ror messages are output using IDT calls. After suc- 
cessful loading, control is transferred to the transfer 
address of the loaded module (first executable state- 
ment of the HAIN program for a Fortran-compiled pro- 
gram) , 

RETURN, called from a non-resident section, restores 
R0-R5 and does an RTS R5, This returns control to the 
statement followlna the last CALL LINK issued from the 
resident section. No checking of the validity of the 
call is done, 

NOTE! The stack pointer SP and all elements on the 
stack (eg subroutine return addresses) must remain un- 
disturbed over a CALL LINK - CALL RETURN sequence. 
Destruction of values on the stack will corrupt the 
overlay system In unpredictable wavs. 


I0.b,l7 RUN Subroutine 

RUN Is a user callable subroutine, actually an alter- 
nate entry point in the LINK subroutine. The RUN su- 
broutine oeletes all items on the orocessor stack, 
calls SCLSUP to close files opened by SQPEN, and uses 
the LINK code to invoke the DOS Run EMT, The calling 
form isi 

CALL RUN ( • dev 1 f 1 1 e, ex t [ule] ') 

The argument is interpreted as In CALL LINK, 


11.0 FUNCTIONAL DESCRIPTION AND OPERATION 
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M/A 


12.0 programming considerations 

M/A 
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13.0 PREPARATION AND/OR SYSTEM BUILD 


13.1 Assembly Instructions 

Includeo In the source files supplied fon the Fortran 
0T8 are files named ASMOTS.nnA and BLDDTS.nnA, These 
are the BATCH-ll control files used In assembling the 
Version nn A OTS. These files assume a system configu- 
ration with two RK03/RK05 disk drives, but they mav be 
edltted for other conf 1 gurat 1 ons. 

Uslnq PIP the following routines should be combined In- 
to a single file 'SYMBOL. PAL' . 


IOPSTK.PAL 

IOFSTK.PAL 

IOUSTK.PAI. 

iorstk.pal 

IOBUF.MAP 
devtb.map 
END. PAL 


Using PIP the following routines should be combined In- 
to a single file 'map.PAL' . 


IOBUF.MAP 

devtb.map 

END. PAL 


NQTEiIn the source tapes supolled by the DEC Program 
Library, the files SYMBOL. PAL and MAP.PAL are supoiled 
as complete files. The above PIP steps mav be omitted. 


Using maCRO- 11 the following routines should be assem- 
bled with 'SYMBOL, PAL' as a trailer CI.E, 

file,lp:<file, symbol. PAL) 


ECDnn.PAL 
lEDnn.PAL 
BSPnn.PAL 
FlOnn.PAL 
NFRnn.PAL 
INRnn.PAL 
NRRnn .PAL 
ARGnn.PAL 
IOCnn.PAL 
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IOFnn.PAL 
IFInn.PAU 
IRDnn.PAL 
IRlnn.PAL 
IUDnn.PAL 
I U Inn. PAL 
OPNnn.PAL 
RADnn.PAL 
RlOnn.PAL 
UlOnn.PAL 


Uslnq MACRO-11 the following routines should be assem- 
bled with *MAP,pAL' as a trailer. 


CLSnn.PAL 

CLPnn.PAl 

DFLnn.PAL 

FNDnn.PAL 

ERRnn.PAL 

iSTnn.PAL 

RWDnn.PAL 

SFLnn.PAL 


Using MACRO-li all other routines are assembled Indlvl- 
dua 1 1 y . 

NOTE* ’nn» In the above file names Is the current ver- 
sion number, 

N,B, - N 0 assembly errors are expected for any file. 


13.1.1 EAE Conditional Assembly 

The following routines contain conditional code for the 
PDP-11/20 Extendend Arithmetic Element (KE11-A). 


SBSnn.PAL 

SBXnm.PAL 

MLInn.PAL 

MLRnn.PAL 

MLDnn.PAL 

iRnn.PAL 

DVRnn, PAL 

DVInn.PAL 

ANTnn.PAL 

ADDnn.PAL 

AORnn.PAL 
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Rlnn, PAL 

ONTnn.PAL 

POLrn.PAL 


Usinq MACRO-11 assemble the above routines with E A E , P A L 
as a header (I.E. FILE, LP?<EAE, FILE) to obtain their 
EAE versions. 


13.1.2 FPU Conditional Assembly 

The following routines contain conditional cooe for the 
Floating Point Processor on the POP-il/A^, 


NAMnn.PAL 

SINnn.PAL 

OSNnn.PAL 

PRInn.PAL 

POInn.PAL 

OSQnn.PAL 

SQTnn.PAL 

ATNnn.PAL 

t)TNnn,PAL 

EXPnn.PAL 

OXPnn.PAL 

ALGnn.PAL 

DLGnn.PAL 

ROnn.PAL 

TSInn.PAL 

MLCnn.PAL 

DVCnn.PAL 

MLRnn , PAL 

MLDnn.PAL 

IRnn.PAL 

DRnn.PAL 

OVRnn.PAL 

OVOnn. PAL 

CMRnn.PAL 

CMOnn.PAL 

ANTnn.PAL 

ADDnn.PAL 

ADCnrt , PAL 

AORnn.PAL 

Rlnn, PAL 

ONTnn.PAL 

SERnn , PAL 

FPRnn.PAL 

POLnn. PAL 
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Using MACRO-11 assemble the above routines with FPU, PAL 
as a header to obtain their FPU versions. 

In addition# using MACRO-11 assemble the following rou- 
tines with EIS.PAL as a header* 


PI Inn , PAL 
SaSnn.PAL 
S8Xnn # PAL 
MLlnn.PAL 
DVlnn.PAL 


13.1,3 EIS(MULDIV) Conditional Assembly 

The following routines contain conditional code for the 
multiply/divide and multi-bit shift features of the 
PDP-11/45, a standard oart of the 11/45 instruction 
set. The symbols EIS and MULDIV are used interchange- 
ably in the condi t 1 onal i zed eode for this assembly op- 
tion! the resulting OTS is referred to as EISLIB in DEC 
documents. 


PlInn.PAL 

SBSnn.PAL 

SBXnn.PAL 

MLlnn.PAL 

MLRnn.PAL 

MLDnn.PAL 

DVRnn.PAL 

OVInn.PAL 

ANTnn.PAL 

ADDnn.PAL 

ADRnn.PAL 

Rlnn.PAL 

ONTnn.PAL 

POLnn.PAL 

Using MACRO-11 assemble the above routines with EIS.PAL 

to obtain their EIS versions. 


13.1,4 RSX Conditional Assembly 
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The following routines contain conditional code for the 
RS*11C and RSX11B operating systems. 


PDUnn.PAL 
SSPnn.PAL 
NFRnn.PAL 
INRnn.PAL 
NRRnn.PAL 
RWQnn.PAL 
NArtnn • P AL 
RSTnn.PAL 
FDVnn.PAL 
SFLnn.RAL 
0P.Nnn.PAL 
SERnn.PAL 
SEQnn, PAL 
ERRnn.PAL 
TPCnn.PAL 
ERCnn , P AL 
EXTnn.PAL 
ISTnn.PAL 
DVBnn , PAL 


Using MACRO-11 assemble the above routines with RSX.PAL 
as a header to obtain their RSX versions. 


13.2 Library Ordering Constraints 

The current library orderlnq Is considered ootlmal. 
This ordering Is given In the library listing obtain- 
able from LIBR-11, 

Mew modules may be Inserted at any point In the library 
after module one without affecting the current order- 
1 no, 

If It Is desired to move a module within the library 
orogrammlng department memo 130-311-006 lists Inter 
module dependencies. 

Any module required by another should phvslcally follow 
that module within the library. 


13.3 Building the Diagnostic File 

The procedure for constructing a diagnostic file Is do- 
cumented In the "Getting FORTRAN on the Air" document. 
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FORMATTED I/O 


*IOFI * INITIALIZE FORMATTED I/O 27 

SINFI# REQUIRES SINFR, $IOC# SFIO 

SOUTFI 

SFIO - FORMAT SCANNING AND CONVERSION 670 

REQUIRES SERR# SIQARG# SINFR, 

SDCO# SICO# SLCO# 

SDCI# SICIf $LCI 

$IOF - ENO OF I/O LIST PROCESSING FOR FORMATTED# 71 

SIOERR# UNFORMATTED AND RANDOM I/O 

SIOFX REQUIRES SERR# $E*IT, SIOUD, SlORD 

SINFR - CONTROLS FORMATTED INPUT/OUTPUT 240 

SOUTFW REQUIRES SQPEN, $CLOSF# SREAD 

SFNDEV# SIOSET# $IOF 
SFLDEV 

SFLDEV - DEFINES FORTRAN LISTING DEVICES FOR 4 

SINFR 

SDCO - OUTPUT CONVERSIONS D,F#F#G 456 

SECO# 

SFCO# 

SGCO 

SICO - OUTPUT CONVERSIONS 1,0 93 

$0C0 

SLCQ - OUTPUT CONVERSIONS L 31 

SDCI - INPUT CONVERSIONS D#E#F#G 384 

SRCI 

SICI - INPUT CONVERSIONS 1,0 98 

JQC J 

SLCI - INPUT CONVERSIONS L 31 




PDP-11 Fortran Object Tine System, 130-31 1-902-P9 PAGE 65 
AppencH* I - OTS Sizes 


UNFORMATTED I/O 


SIOUI - INITIALIZE UNFORMATTED I/O 32 

«INI REQUIRES SUIO, SINR, $IOC, SIOIJD 

SOUTI 

$UI0 - ITEM TRANSFERS TO AND FROM 58 

UNFORMATTED I/O 
REQUIRES SERR, * 10 A R G 

$IOUD - END OF I/O LIST PROCESSING FOR 17 

UNFORMATTED I/O 
REQUIRES SIOF, SINR 

SINR - CONTROLS UNFORMATTED I/O 127 

SOUTH REQUIRES SOPEN, $CLOSE, SPEAD, 

SFNDEV, SIOSET, SIOF 


RANDOM I/O 



« 


$ 1 0 R I - INITIALIZE RANDOM I/O 28 

SINRI, REQUIRES SINRR, SIORD, $RI0, $100 

SQUTRI 

SRIO - TRANSFERS TO AND FROM RANDOM I/O RECORDS 52 

REQUIRES SERR, SIOA»G, $ I N R R 
SIORD - END OF I/O LIST PROCESSING FOR RANDOM I/O 25 
REQUIRES SIOF, $ INRR 

SINRR * CONTROLS RANDOM I/O 168 

SOU TRW REQUIRES SOPEN, SCLOSE, $RE AD , 

SIOSET, SFNDEV, SRANDM, 

SIOF 

SDEFIL - OBJECT TIME DEFINF FILE FOR RANDOM I/O 39 

REQUIRES SFNDEV, SERR, SEXTT 
SFIND - OBJECT TIME FIND ROUTINE FOR 33 

RANDOM I/O 

SRANDM - BLOCK DISPLACEMENT FOR 48 

RANDOM I/O 
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INTERNAL COMMON I/O ROUTINES 

SIOARG - ITEM TRANSMISSION ROUTINES FOR ALL I/O 181 

SIOA, TYPES 

SIOB, REQUIRES JMLI 
SIOL, 

UOI, 

SIOJ, 

$ I OR , 

S I Q D » 

SIOC, 

SIOELM 


SIOC * MISCELLANEOUS COMMON SUBROUTINES 30 

USED BY I/O 

SOPEN - DOES . INIT AND , OPEN OF PHYSICAL 150 

OEYICE 

SCLOSE - DOES .CLOSE AND .RLSE OF PHYSICAL 34 

DEVICE 

SFNDEV - GET ADDRESS OF DEVICE TABLE ENTRY 16 

SCLSUP - CLOSE FILES AT PROGRAM END 29 

SIOSET - SET UP FILE AND LINK BLOCK FROM DEVICE 55 

TABLE ENTRY 

SREAQ/SwRITE - READ OR WRITE A RECORD 95 


THESE ROUTINES ARE REQUIRED FOR FORMATTED, UNFORMATTED 
AND random I/O. 
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ERROR HANDLING ROUTINES 


SERR - OBJECT TIME ERROR HANDLER 274 

REQUIRES SEXIT# STRCBK 

SFPERR - 11/45 FPP INTERRUPT ROUTINE 43 

STRCBK - NAME# SEQUENCE TRACE OF 95 

subroutine chain 

SSEQ - SAVE3 SEQUENCE NUMBER OF 3 

CURRENT FORTRAN STATEMENT 

SNAH - CHAINS SUBROUTINE NAMES 24 

SRET SAVES END OF CHAIN POINTER 


NON- reentrant areas 

SOTSV - CONTAINS POINTERS TO SDEVyR# SIORUF, SERRC 13 



SERRWK# AND STORAGE FOR SNAHC, SSEQC# SEXSW# 

SEXSW# 

SNAMC# 

SSEQC 

SERRWK 

c 

SDEVTB - OBJECT TIME DEVICE TABLE 

(ENTRIES FOR 8 DEVICES) 

172 

SIOBUF - I/O BUFFER# INCLUDES LINK AND F TLE 

blocks 

83 


SERRC - ERROR CLASS TABLE USED BY SERR 

MISC « OBJECT TIME SUPPORT 

42 


SSTOP “ OBJECT TIME STOP ROUTINE 

10 


SPAUSE » OBJECT TIME PAUSE ROUTINE 

15 


EXIT - OBJECT TIME EXIT ROUTINE 

14 

4 

SBCKSP - OBJECT TIME BACKSPACE ROUTINE 

REQUIRES SERR, SCLOSE, SOPEN 

SREAD, SIOSET# SFNDEV 

89 

1 

SRWIND/SENDFL - OBJECT TIME REWINp/ENDFlLf 

routine 

36 


REQUIRES SCLOSE# SFNDEV# SEPR 
SEXIT 

# 
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GENERAL POLISH ROUTINES 


SPOLSH - ENTER POLISH MODE 
SPSH - PUSH AN ADDRESS OR 

value ON THE stack 
SPOP2 - POP AND INTEGER OR LOGICAL ITEM 2 


SPOP1 

SPOP 5 - POP A DOUBLE, COMPLEX, OR REAL ITEM 
SPOP4, 

SP0P3, 

SP0P4A, 

SP0P4B 

SPUT - PUTS ONE, TWO OR FOUR WORDS 
SPUT5, FROM THE STACK AT ADDRESS 
SPUT3, SPECIFIED IN R0, Pa PREVIOUSLY 
SPUT2, SET BY THE SUBSCRIPT ROUTINE 
SPUT 1 

SGET - GET AN ITEM FROM ADDRESS SPECIFIED 
SGET5, IN R0 AND PLACE IT ON THE 
SGET4, STACK. R0 PREVIOUSLY SET BY THE 
SGET3, SUBSCRIPT ROUTINE. 

SGET2, 

SGET1 

$PHR - PLACES ONE, TWO DR FOUR ITEMS 
SPSHR5, ON THE STACK FROM R0-R3. 

SPSHR4, USED AFTER FUNCTION CALLS, 

SPSHR3, 

SPSHR2, 

SPSHR1 

SSVSP - SAVES STACK ADDRESS 

AT ADDRESS SPECIFIED. 

USED FOR ADDRESS SUBSTITUTION 
IN SUBROUTINE CALLS. 


4 

8 


5 


8 



5 


2 


SSBS - SUBSCRIPT CALCULATION ROUTINE 
*3831# SETS R0 TO POINT TO ARRAY ELEMENT. 
SSBS2, 

SSBS3 

SNEG - NEGATION FOR INTEGER, REAL AND 
SNGD, DOUBLE PRECISION ITEMS. 

* N G I , 

SNGR 

SNGB 


SNGC 


55 

j 


20 



CM CM 
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subroutine related POLISH ROUTINES 


SADJ - INITIALIZE ADJUSTABLE DIMENSION 1 

SPSHP - PUSH A PARAMETER ADDRESS OR 
value ON THE STACK 

*3VA - GET AN ARRAY ADDRESS FROM THE 2 

ARRAY DESCRIPTOR BLOCK, 

SSVE - SAVE THE ADDRESS OF A SINGLE 2 

ARRAY ELEMENT 

SSVP - SAVE THE ADDRESS OF A 4 

PARAMETER 

SP0PP3 - POP A RFAL PARAMETER 5 

REQUIRES SP0P5 

SPOPRb - POP TWO OP FOUR ITEMS FROM 8 

SP0PR4, THE STACK, PLACE IN R0-R3. 

SPOPR3 USED BY EXTERNAL FUNCTIONS 

SPORP5 - POP A FOUR WORD PARAMETER 5 

SPOPP4 REQUIRES $PQP5 


7 


5 

4 

4 

5 
8 


BYTE MODE RELATED POLISH ROUTINES 


SPOPP0 

SPOPR0 

$ ANfjJ - 
SORB - 
SNTB - 
SCMB - 

SBYTE - 

SGET0, 

SPUT0, 

SPSHP0, 

SPOP0 


- POP A BYTE PARAMETER 
USED BY SUBROUTINES AND 
external SUNCTIONS 
LOGICAL AND OF BYTE OPERANDS 
LOGICAL OR OF BYTE OPERANDS 
LOGICAL NOT OF BYTE OPERANDS 
BYTE COMPARF. ROUTINE 
USED BY LOGICAL IF 
COMMON BYTE POLISH ROUTINES 



«* Os 
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LOGICAL IF SUPPORT 


$C*D - double COMPARE ROUTINE 31 

USED BY LOGICAL IF 
$C M I - INTEGER COMPARE ROUTINE 

USED BY LOGICAL IF 2 

SCMR - REAL COMPARE ROUTINE 23 

USED BY LOGICAL IF 

*GLE - TESTS FOR LOGICAL OPERATORS 13 


$LF-> LT, EG, GT, ETC. 

SLT, 

$EQ# 

SNE, 

SGE, 

SGT 


STRTST - CONTROLS TRANSFER OF 6 
LOGICAL IF 

SAN I - LOGICAL AND of integer operands 3 
$NT I - LOGICAL NOT OF interger OPERANDS 2 
SORI - LOGICAL OR OF INTEGER OPERANDS 2 


o 




I 
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GO TO SUPPORT 


$TR - UNCONDITIONAL GO TO 2 

$TPX - COMPUTED GO TO 18 

REQUIRES *£RR 

STRA - ASSIGN AND ASSIGNED GO TO 4 

* AS WITH NO LIST 

STRAl - ASSIGNED GO TO WITH LIST 12 

REQUIRES SERR 

SASP - ASSIGN TO DUMMY PARAMETER 9 

SPOPR2, INCLUDES POP ROUTINE FOR 
SPOPP1, INTEGER OR LOGICAL PARAMTeRS 
SP0PR2 » 

$POPR 1 

ARITHMETIC IF 


STSI - CONTROLS TRANSFER FOR 14 

STSR, ARITHMETIC IF 

STSD 

DO STATEMENTS 


SENDDO - DO STATEMENT END PROCESSING U 

SENDDP - DO STATEMENT END PROCESSING 27 

DO PARAMETERS PASSED TO 
SUBPROGRAMS. 
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TYPE CONVERSIONS 


SRD 

REAL TO DOUBLE 

9 

SRC 

real to complex 


SIR 

INTEGER TO REAL 

32 

SID 

INTEGER TO DOUBLE 


SIC 

integer to complex 


SDR 

double to real 

REQUIRES SERR 

21 

SRI 

REAL TO INTEGER 

45 

SDI 

double to integer 


SBI, 

BYTE TO INTEGER 

5 

SIB, 

integer TO BYTE 


SBL, 

BYTE TO LOGICAL 


*LB 

LOGICAL TO BYTE 


SCI 

COMPLEX TO INTEGER 

20 

SCR 

complex to real 


SDC 

DOUBLE TO COMPLEX 


$CD 

COMPLEX TO DOUBLE 


SBC 

BYTE TO COMPLEX 

8 

SBD 

BYTE TO DOUBLE - 


SBR 

BYTE TO REAL 


$CB 

COMPLEX TO BYTE 

21 

SOB 

double TO BYTE 


SRB 

REAL TO BYTE 
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MULTIPLICATION 


SMLI 

MULTIPLE INTEGER 

REQUIRES SERR 

56 

SMLR 

MULTIPLY real 

REQUIRES SERR 

117 

SMLD 

MULTIPLE DOUBLE 

REQUIRES SERR 

206 

SMLC 

MULTIPLY COMPLEX 

REQUIRES SMLR* SADR 

64 

division 

sdvi 

OIVIDE INTEGER 

REQUIRES SERR 

43 

sdvr 

DIVIDE REAL 

REQUIRES SERR 

139 

sdvd 

OIVIDE DOUBLE 

REQUIRES SERR 

230 

$dvc 

DIVIDE COMPLEX 

REQUIRES SADR* SSBR* SmLR* 

SDVR* SERR 

130 


exponentiation 


SPWRT - POWER REAL TO INTEGER 89 

REQUIRES SMLR* SDVR, SERR* SPOLSH 
SPWDI - POWER DOUBLE TO INTEGER 129 

REQUIRES SMLD* SDVD* $ERR * SPOLSH 
SPWCI - POWER CQMPLX TO INTEGER 129 

REQUIRES SMLC* SDVC, $ E R R * SPOLSH 
SPWII - POWER INTEGER TO INTEGER 64 

REQUIRES SMLI* SERR* SPOLSH 

JPWRR - POWER REAL TO REAL 57 

REQUIRES EXP* ALOG* $MlR 
sfcall* $E«R, SPOLSH 

SPWDD, POWER DOUBLE TO DOUBLE 86 

SPWQR* POWER DOUBLE TO REAL 

SPWRD POWER PEAL TO DOUBLE 

REQUIRES OEXP, DLOG* $MLD 
SFCALL* SERR* SPOLSH 
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ADDITION AND SUBTRACTION 


SADR, 

REAL ADDITION 

SSBR 

REAL SUBTRACTION 
REQUIRES SERR 

SADD, 

DOUBLE ADDITION 

SSBD 

DOUBLE SUBTRACTION 
REQUIRES SERR 

SADI 

INTEGER ADDITION 

SSBI 

INTEGER SUBTRACTION 

SADC, 

COMPLEX ADDITION 

SSBC 

complex SUBTRACTION 
REQUIRES SADR 


176 


290 


2 

44 


internal math routines 


SFCALL - USED FOR CALLING SINGLE ARGUMENT 12 

FORTRAN FUNCTIONS FROM WITHIN 
FORTRAN FUNCTIONS 

SDINT - FINDS THE INTEGER PART OF A 53 

DOUBLE PRECISION NUMBER 

SFCALL IS REQUIRED BY SPWRR, SPwDD, CABS, CEXP, 

CLOG, CSIN, CSQRT AND TANH, 

SDINT IS REQUIRED BY DSIN AND DMOD. 


/fT*% 




# 
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FUNCTIONS AND SUBROUTINES 


DATE# TIME SUBROUTINES 33 

LINK# RETURN# «UN t OVERLAYS 153 

PDUMP - FORTRAN PDUMP ROUTINE 87 

REQUIRES SQUTFI # ?IOF# 

$ICO, $DCO 

SETFIL - PROVIDES A MEANS TO 140 

OVERRIDE THE DEVICE TABLE 
DEFAULTS 

SETERR * PROVIDES A MEANS TO 26 

OVERRIDE ERROR CLASS TABLE 

defaults 

SSWTCH - READ CONSOLE SWITCHES 20 

TSTERR - TEST RUNTIME ERROR SWITCHES 16 


i 


« 
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STANDARD FORTRAN FUNCTIONS 


ABS 


8 

AJMAG 


6 

AMIN0# 

A H A X0 

REQUIRES SIR# SPOLSH, $»0PR3 

22 

ALOG, 

REQUIRES SADR# SDVR# 

120 

ALOG10 

S-SBR# $MLR# SIR, SPOLSH 


amod 

REQUIRES SDVR# SINTR# 

*MLR# SSBR# SPOLSH, SP0PR3 

23 

ATAN, 

REQUIRES SADR, SMLR # 

215 

ATAN2 

SDVR# SPOLSH# SP0PR3 

CABS 

REQUIRES SDVR, SMLR# $ADR# 

SFCALL# SORT, SPOLSH 

74 

CEXP 

REQUIRES SIN, SFCALL# SMLR 

SSBR, COS# SMLC# SPOLSH# SPSHR3# IPOPR4 

36 

CLOG 

REQUIRES ATAN2# CABS# SFCALL# 

ALOG 

38 

CMPL* 


9 

CON JG 


11 

CSIN# 

REQUIRES SIN, COS# EXP, SFCALL* 

122 

CCDS 

$AQR# SSBR# SDVR# SMLR 


CSORT 

REQUIRES CASS# SFCALL* SADR# 

SORT# SDVR# SERB 

74 

dabs 


10 

DATAN# 

REQUIRES SADD# SSSD# $MLD# SDVD 

361 

DATAN2 

SPOLSH, SP0PR4 


DBLE 


7 

DEXP 

REQUIRES SADD# SDVD# SSBD# SMLD# 

SID# SDI# SERR# SPOLSH, SP0PR4 

210 

DIN 

REQUIRES SSBR, SPOLSH 

21 

OLOG# 

REQUIRES SSBD# SADD* SDVD# SMLD, 

192 

OLOG10# 

SID# SERR# SPOLSH# SPORR4 


DMINI, 

REQUIRES SCMD, SPOLSH 

46 

DSIGN 


15 

DSIN# 

REQUIRES SADD# SMLD# SSBD# SDVD 

181 

DCOS 

SDINT# SPOLSH, SPQPR4 


DS5RT 

REQUIRES SADD# SDVD# SERR# SPOLSH 

69 

EXP 

REQUIRES SADR, SDVR# $IR# SMLR 

SRI# SSBR, SERR, SPOLSH 

117 

float 

REQUIRES SIR# SPOLSH, $P0PR3 

8 

DMOD 

REQUIRES SDVD# SMLD* $S8D# SDINT 

SPOLSH# SPQPR4 

31 

I A B S 

REQUIRES SERR 

10 

IDIM 

REQUIRES SERR 

12 

int, 

IDINT 

REQUIRES SRI, SPOLSH 

11 

IFIX 

REQUIRES SADR# SRI# JPOLSH 

11 

ISIGN 

REQUIRES SERR 

14 

MAX0 


9 

AMAX1# 

MAXI, 

amini# 

REQUIRES SCMR, SRI, SPOLSH 

58 
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MINI 

MIN0 


9 


HOD 

REQUIRES SDV I , SMLI, SPOLSH 

16 


RAN - 

RANDOM NUMBER GENERATOR 

45 


real 


5 

4 

SIGN 


11 

SIN, 

REQUIRES SADR, SMLR, SSBR, 

lie 


COS 

SDVR, SINTR, SPOLSH 



SNGL 

REQUIRES SEBR 

15 

% 

SQPT 

REQUIRES SADR, SDVR, SeRR, SPOLSH 

47 


tanh 

REQUIRES EXP, SADR, SSBR, SDVR, 
JFCALL, SPOLSH, SPSHR3 

121 


AINT, 

SINTR 


39 



END OF THE OTS DOCUMENT 
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